gcc/testsuite/gfortran.dg/module_parameter_array_refs_1.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for 26074, in which the array reference below would
   3 ! be determined not to be constant within modules.
   4 !
   5 ! Contributed by Jonathan Dursi  <ljdursi@cita.utoronto.ca>
   6 !
   7 module foo
   8
   9    integer, parameter :: len = 5
  10    integer :: arr(max(len,1))
  11
  12 end
  13
  14 ! { dg-final { cleanup-modules "foo" } }