tests/ctags/initialization.f90

   1 ! Tests for correct parsing of complicated initialization
   2       MODULE funcon
   3       IMPLICIT NONE
   4       REAL(8),DIMENSION(3,3),PARAMETER :: &
   5          imat= reshape((/1.d0,0.d0,0.d0, &
   6                          0.d0,1.d0,0.d0, &
   7                          0.d0,0.d0,1.d0/),(/3,3/))
   8       REAL(8),DIMENSION(6,6),PARAMETER :: &
   9          imat6= reshape((/1.d0,0.d0,0.d0,0.d0,0.d0,0.d0, &
  10                           0.d0,1.d0,0.d0,0.d0,0.d0,0.d0, &
  11                           0.d0,0.d0,1.d0,0.d0,0.d0,0.d0, &
  12                           0.d0,0.d0,0.d0,1.d0,0.d0,0.d0, &
  13                           0.d0,0.d0,0.d0,0.d0,1.d0,0.d0, &
  14                           0.d0,0.d0,0.d0,0.d0,0.d0,1.d0/),(/6,6/))
  15
  16       END MODULE funcon