gcc/testsuite/gfortran.dg/spec_expr_5.f90

   1 ! { dg-do compile }
   2 ! PR 33689
   3 ! Wrongly rejected valid code due to non-trivial expression for array bound
   4  subroutine grylmr()
   5     integer, parameter :: lmaxd = 20
   6     REAL, save :: c(0:(lmaxd+1)*(lmaxd+1))
   7   end subroutine grylmr
   8 end