1 ! Tests for correct parsing of complicated initialization
4 REAL(8),DIMENSION(3,3),PARAMETER :: &
5 imat
= reshape((/1.d0
,0.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/))