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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@52540 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8cf71e9..0042764 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/testsuite/g77.f-torture/execute/6367.f b/gcc/testsuite/g77.f-torture/execute/6367.f
new file mode 100644 (file)
index 0000000..158bddf
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/6367.f
@@ -0,0 +1,16 @@
+      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

diff --git a/gcc/testsuite/g77.f-torture/execute/6367.x b/gcc/testsuite/g77.f-torture/execute/6367.x
new file mode 100644 (file)
index 0000000..027dcb5
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/6367.x
@@ -0,0 +1,8 @@
+# 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