summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/spec_expr_5.f90
blob: 819038348c2ee94b0b0b0e667ec4cea254d8b3d2 (plain)
1
2
3
4
5
6
7
8
! { dg-do compile }
! PR 33689
! Wrongly rejected valid code due to non-trivial expression for array bound
 subroutine grylmr()
    integer, parameter :: lmaxd = 20
    REAL, save :: c(0:(lmaxd+1)*(lmaxd+1))
  end subroutine grylmr
end