ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].
[official-gcc.git] / gcc / testsuite / gfortran.dg / spec_expr_5.f90
blob819038348c2ee94b0b0b0e667ec4cea254d8b3d2
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