]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.f-torture/execute/io1.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / io1.f
diff --git a/gcc/testsuite/g77.f-torture/execute/io1.f b/gcc/testsuite/g77.f-torture/execute/io1.f
deleted file mode 100644 (file)
index c524244..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-*     Fixed by 1998-09-28 libI77/open.c change.
-      open(90,status='scratch')
-      write(90, '(1X, I1 / 1X, I1)') 1, 2
-      rewind 90
-      write(90, '(1X, I1)') 1
-      rewind 90                 ! implicit ENDFILE expected
-      read(90, *) i
-      read(90, *, end=10) j
-      call abort()
- 10   end