Ошибка компиляции: Недопустимый символ в названии в (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