Translated Array variable in test case for F90 has syntax error

[MengZhang]

Following is the input XML for translation, generated test case code, compiler error for the generated code and revision of code for passing the compiling.

*XML:
[5,5,10,10,20,20,40,40,0,0]

*Generated F90 test case code:
INTEGER:: NL
REAL, ALLOCATABLE, DIMENSION(NL) :: DLAYR
....
NL = 10
DLAYR = [5,5,10,10,20,20,40,40,0,0]

*Compiler error message:
REAL, ALLOCATABLE, DIMENSION(NL) :: DLAYR
1
Error: Explicit shaped array with nonconstant bounds at (1)

 DLAYR = [5,5,10,10,20,20,40,40,0,0]
1

Error: Incompatible ranks 0 and 1 in assignment at (1)

• Revised code:
  REAL, DIMENSION(10) :: DLAYR = [5,5,10,10,20,20,40,40,0,0]