gcc/testsuite/gfortran.dg/real_do_1.f90

   1 ! { dg-do run }
   2 ! Test REAL type iterators in DO loops
   3 program real_do_1
   4   real x, y
   5   integer n
   6
   7   n = 0
   8   y = 1.0
   9   do x = 1.0, 2.05, 0.1 ! { dg-warning "REAL DO loop" "" }
  10     call check (x, y)
  11     y = y + 0.1
  12     n = n + 1
  13   end do
  14   if (n .ne. 11) call abort()
  15 contains
  16 subroutine check (a, b)
  17   real, intent(in) :: a, b
  18
  19   if (abs (a - b) .gt. 0.00001) call abort()
  20 end subroutine
  21 end program