gcc/testsuite/g77.dg/fno-vxt-1.f

   1 C Test compiler flags: -fno-vxt
   2 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   3 C
   4 C { dg-do run }
   5 C { dg-options "-fno-vxt" }
   6       i = 0
   7      !1
   8       if ( i .ne. 0 ) call exit
   9       call abort
  10       END