xref: /openbsd-src/gnu/usr.bin/gcc/gcc/testsuite/g77.dg/fno-vxt-1.f (revision c87b03e512fc05ed6e0222f6fb0ae86264b1d05b) 
1C Test compiler flags: -fno-vxt
2C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
3C
4C { dg-do run }
5C { dg-options "-fno-vxt" }
6      i = 0
7     !1
8      if ( i .ne. 0 ) call exit
9      call abort
10      END
11