Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
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