2002-04-19 Toon Moene <toon@moene.indiv.nluug.nl>
* PR6367
* g77.f-torture/execute/6367.f: New test.
* g77.f-torture/execute/6367.x: Disable for MMIX.
From-SVN: r52540
+2002-04-19 Toon Moene <toon@moene.indiv.nluug.nl>
+
+ * PR6367
+ * g77.f-torture/execute/6367.f: New test.
+ * g77.f-torture/execute/6367.x: Disable for MMIX.
+
2002-04-19 Mark Mitchell <mark@codesourcery.com>
* PR6352
--- /dev/null
+ program testnl
+ character*80 line
+ dimension a(10),b(10)
+ namelist /nl/ a
+ data a / 10 * 0.0 /
+ data b / 0., 1., 1., 1., 2., 2., 3., 3., 3., 0. /
+ data line /'&nl a(2) = 3*1.0, 2*2.0, 3*3.0 /'/
+ open(1,status='scratch')
+ write(1,'(a)') line
+ rewind(1)
+ read(1,nl)
+ close(1)
+ do i = 1, 10
+ if (a(i) .ne. b(i)) call abort
+ enddo
+ end
--- /dev/null
+# Scratch files aren't implemented for mmixware
+# (_stat is a stub and files can't be deleted).
+
+if { [istarget "mmix-knuth-mmixware"] } {
+ set torture_execute_xfail "mmix-knuth-mmixware"
+}
+
+return 0