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