コンパイルエラー：（1）

Question

の名前に無効な文字私は

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 

を書いたがtest.fとして保存され、そして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 Fortran（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