Sign in
gnu
/
gcc
/
fba228e259dd5112851527f2dbb62c5601100985
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr85796.f90
blob: 78683787fbb3c18c6d0254978a69479a6b406fb1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
85796
-
Floating
point exception
with
implied
do
in
data statement
program p
implicit
none
integer
::
i
,
j
,
x
(
2
,
2
)
data
((
x
(
i
,
j
),
i
=
1
,
2
,
j
-
1
),
j
=
1
,
2
)
/
3
*
789
/
!
{
dg
-
error
"step of implied-do loop"
}
end
