Sign in
gnu
/
gcc
/
8a0fce6a51915c29584427fd376b40073c328090
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
spec_expr_5.f90
blob: 819038348c2ee94b0b0b0e667ec4cea254d8b3d2 [
file
] [
log
] [
blame
]
!
{
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