컴파일 오류 : (1)

Question

에서 이름에 잘못된 문자가 나는 test.f로 저장

program test 
    implicit none 

    integer, parameter :: N = 3 
    real(8), parameter :: & 
    A(N,N) = reshape((/1.5d0,1d0,1d0,1d0,1.5d0,2d0,1d0,1d0,3d0/), shape(A)) & 
    b(N) = (/ 5d0,-3d0,8d0 /) 

    print *, A 
end program 

을 쓰고, gfortran -ffree-form -Wall -Werror -ffree-line-length-none test.f으로 컴파일 오류가 발생했습니다.

test.f:6:24: 

    A(N,N) = reshape((/1.5d0,1d0,1d0,1d0,1.5d0,2d0,1d0,1d0,3d0/), shape(A)) & 
         1 
Error: Invalid character in name at (1) 
test.f:9:12: 

    print *, A 
      1 
Error: Symbol ‘a’ at (1) has no IMPLICIT type 

무엇이 잘못 되었습니까?

컴파일러는 GNU 포트란 (GCC) 버전 6.1.1입니다.

Answer 1

당신은 b의 선언 앞에 쉼표 누락 :

real(8), parameter :: & 
    A(N,N) = reshape((/1.5d0,1d0,1d0,1d0,1.5d0,2d0,1d0,1d0,3d0/), shape(A)), & 
    b(N) = (/ 5d0,-3d0,8d0 /) !           ^
    !                  | 
    !              comma inserted here