Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr33074.f90
blob: 3538d6588c465d97dc557a7d0a22e6c64dfe9dff [
file
] [
log
] [
blame
]
!
PR middle
-
end
/
33074
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O"
}
subroutine pr33074
(
a
,
w
)
real a
(
1
),
w
(
1
)
a
(
1
)
=
2.0
**
int
(
w
(
1
))
end
