gcc/testsuite/gfortran.dg/do_while_1.f90

   1 ! { dg-do run }
   2 ! PR 50327 - this used to cause an endless loop because
   3 ! of wrong fron-end optimization.
   4 program main
   5   real :: tmp
   6   tmp = 0.
   7   do while (abs(tmp) < 10. .and. abs(tmp) < 20.)
   8      tmp = tmp + 1.
   9   end do
  10 end program main