gcc/testsuite/gfortran.dg/array_4.f90

   1 ! { dg-do compile }
   2 ! PR fortran/36824
   3 !
   4 ! Dimension of tgclist was not recognized as having constant bounds
   5 !
   6 program test
   7 implicit none
   8 integer, dimension( 3 ), parameter :: tgc = (/5, 6, 7 /)
   9 type tgccomp
  10    integer, dimension( tgc( 1 ) : tgc( 2 ) ) :: tgclist
  11 end type tgccomp
  12 end program