선언 변수 (포트란)

Question

내가 포트란 (처음 사용자)의 매우 간단한 함수를 작성하는 것을 시도하고있다 :

program Main 
    implicit none 
    integer function k(n) 
    integer, intent(in) :: n 
    k=n 
    end function k 
end program Main 

I 오류의 무리 얻을 :

integer function k(n) 
        1 
Error: Syntax error in data declaration at (1) 

    integer, intent(in) :: n 
          1 
Error: Unexpected data declaration statement at (1) 

    end function k 
    1 
Error: Expecting END PROGRAM statement at (1) 

    k=n 
    1 
Error: Symbol ‘k’ at (1) has no IMPLICIT type 

    k=n 
    1 
Error: Symbol ‘n’ at (1) has no IMPLICIT type 

무엇 내가 틀렸어? 나는 gfortran의 마지막 버전을 사용하고있다. 프로그램 블록의 로컬

Answer 1

선언 된 함수와 서브 루틴 수는

program Main 
    implicit none 
    integer :: myLocalN 
    myLocalN = 2 
    print*, "My local N is ", myLocalN 
    print*, "The value of this squared is", sq(myLocalN) 
contains 
    integer function sq(n) 
    integer, intent(in) :: n 
    sq=n*n 
    end function sq 
end program Main