[thirdparty/gcc.git] / gcc / testsuite / g77.f-torture / execute / io1.x

# Scratch files aren't implemented for mmixware
# (_stat is a stub and files can't be deleted).
# Similar restrictions exist for most simulators.

if { [istarget "mmix-knuth-mmixware"]
     || [istarget "arm*-*-elf"]
     || [istarget "strongarm*-*-elf"]
     || [istarget "xscale*-*-elf"]
     || [istarget "cris-*-elf"] } {
	set torture_execute_xfail [istarget]
}

return 0
Commit	Line	Data
8e5578ea	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