gcc/testsuite/gfortran.dg/parameter_array_ref_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/32906 - Parameter array ... cannot be automatic or assumed shape
   4 !
   5 ! Testcase contributed by Florian Ladstaedter <flad AT gmx DOT at>
   6 !
   7 program test_program
   8   integer, parameter :: len = 1
   9   integer, parameter :: arr(max(len,1)) = (/1/)
  10
  11   character(len=*), dimension (1), parameter             :: specStr = (/'string'/)
  12   double precision, dimension (size(specStr)), parameter :: specNum = (/99.0d0/)
  13 end