Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.5.0
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
spec_expr_3.f90
blob: 27687e5d9f980de3d762efc2d8ac48c70fa8ed15 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
18271
subroutine
sub
(
imax
)
implicit
none
integer
,
intent
(
in
)
::
imax
real
::
aux1
(
25000
+
int
(
0.82
*
imax
))
end
subroutine