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