gcc/testsuite/g77.f-torture/execute/10197.x

   1 # Scratch files aren't implemented for mmixware
   2 # (_stat is a stub and files can't be deleted).
   3 # Similar restrictions exist for most simulators.
   4
   5 if { [istarget "mmix-knuth-mmixware"]
   6      || [istarget "arm*-*-elf"]
   7      || [istarget "strongarm*-*-elf"]
   8      || [istarget "xscale*-*-elf"]
   9      || [istarget "cris-*-elf"] } {
  10         set torture_execute_xfail [istarget]
  11 }
  12
  13 return 0