title: Compilation error: Invalid character in name at (1)
body: <p>I wrote</p>
  
  <pre><code>program test
    implicit none
  
    integer, parameter :: N = 3
    real(8), parameter :: &amp;
      A(N,N) = reshape( (/1.5d0,1d0,1d0,1d0,1.5d0,2d0,1d0,1d0,3d0/), shape(A) ) &amp;
      b(N) = (/ 5d0,-3d0,8d0 /)
  
    print *, A
  end program
  </code></pre>
  
  <p>saved as test.f, and got compilation error with <code>gfortran -ffree-form -Wall -Werror -ffree-line-length-none test.f</code>.</p>
  
  <pre><code>test.f:6:24:
  
       A(N,N) = reshape( (/1.5d0,1d0,1d0,1d0,1.5d0,2d0,1d0,1d0,3d0/), shape(A) ) &amp;
                          1
  Error: Invalid character in name at (1)
  test.f:9:12:
  
     print *, A
              1
  Error: Symbol ‘a’ at (1) has no IMPLICIT type
  </code></pre>
  
  <p>What's wrong?</p>
  
  <p>The compiler is GNU Fortran (GCC) version 6.1.1. </p>