gcc/testsuite/gfortran.dg/do_corner_warn.f90

   1 ! { dg-options "-Wundefined-do-loop" }
   2 ! Program to check corner cases for DO statements.
   3
   4 program do_1
   5   implicit none
   6   integer i, j
   7
   8   ! limit=HUGE(i), step 1
   9   j = 0
  10   do i = HUGE(i) - 10, HUGE(i), 1 ! { dg-warning "is undefined as it overflows" }
  11     j = j + 1
  12   end do
  13   if (j .ne. 11) STOP 1
  14
  15   ! limit=-HUGE(i)-1, step -1
  16   j = 0
  17   do i = -HUGE(i) + 10 - 1, -HUGE(i) - 1, -1 ! { dg-warning "is undefined as it underflows" }
  18     j = j + 1
  19   end do
  20   if (j .ne. 11) STOP 2
  21
  22 end program