gcc/testsuite/g77.dg/fno-onetrip.f

   1 C Test compiler flags: -fno-onetrip
   2 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   3 C
   4 C { dg-do run }
   5 C { dg-options "-fno-onetrip -w" }
   6       do i = 1, 0
   7          call abort
   8       end do
   9       end