Created attachment 47647 [details]
source code

The following code for array parameters does not compile even though it seems valid (shape/size known at compile time)

program initialize_shape_parameter

  integer, parameter               :: x = 2
  integer, parameter, dimension(1) :: y = [2]
  
  real, dimension(x,x),       parameter :: &
       ok1 = reshape([1.,2.,3.,4.],shape(ok1))
       
  real, dimension(y(1),y(1)), parameter :: &
       ok2 = reshape([1.,2.,3.,4.],[y(1),y(1)])
       
  real, dimension(y(1),y(1)), parameter :: &
    not_ok = reshape([1.,2.,3.,4.],shape(not_ok))  !<== ERROR

end program initialize_shape_parameter

Error: PARAMETER ‘not_ok’ is used at (1) before its definition is complete