Sign in
gnu
/
gcc
/
501b3b9ef5be64294f6e51e1e2323b8c9a60adef
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
do_while_1.f90
blob: 0a22ff37cf0ed8fcc94376145423bf5da3073f25 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
50327
-
this
used to cause an endless loop because
!
of wrong fron
-
end
optimization
.
program main
real
::
tmp
tmp
=
0.
do
while
(
abs
(
tmp
)
<
10.
.
and
.
abs
(
tmp
)
<
20.
)
tmp
=
tmp
+
1.
end
do
end
program main