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