Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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