title: Unexpected data declaration statement
body: <p>I'm writing a code for LU decomposition and I don't know how to fix the "unexpected data declaration statement" pointed at line 8 (where I'm declaring an array. See the code fragment). Why is it unexpected?</p>
  
  <pre><code>!Decomposição LU
  !-----------------------------------------------------------
        PROGRAM LUdecomp
        IMPLICIT INTEGER (I-K,N), REAL (A-H, L-M,O-Z)
        INTEGER, PARAMETER :: N=3
        REAL, DIMENSION (N,N) :: A,L,U    
        A = reshape((/3.,1.,4.,4.,2.,0.,3.,2.,3./),(/3,3/))   !exemplo do Bortoli*******
        REAL, DIMENSION(3) :: B=(/9.,3.,-2./),Z,X     
        OPEN(1,file = 'LUFACTOR.out')
  !
  !          FORALL (I = 1:N, J = 1:N) A(I,J) = 1.0/REAL(I+J-1)
  !-------Fazendo a fatoração A = LU-----------------------------
          CALL LU(N, A, L, U)
          DO I=1,N
             WRITE(*,10)(L(I,J), J=1,N), (U(I,J), J=1,N)
          END DO
     10   FORMAT(3(F8.4), 7x, 3(F8.4))
  !
  </code></pre>