gcc/testsuite/g77.f-torture/execute/u77-test.x

   1 # Various intrinsics not implemented and not implementable; will fail at
   2 # link time.
   3
   4 if { [istarget "mmix-knuth-mmixware"]
   5      || [istarget "arm*-*-elf"]
   6      || [istarget "strongarm*-*-elf"]
   7      || [istarget "xscale*-*-elf"]
   8      || [istarget "cris-*-elf"] } {
   9         set torture_compile_xfail [istarget]
  10 }
  11
  12 return 0