New test.

From-SVN: r22842

New test.
From-SVN: r22842
bd7aa7c3 · Dave Love · a3225b7a · bd7aa7c3
Commit bd7aa7c3 authored Oct 05, 1998 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 0 deletions

gcc/testsuite/g77.f-torture/execute/io1.f
+10 -0

No files found.
--- a/gcc/testsuite/g77.f-torture/execute/io1.f
+++ b/gcc/testsuite/g77.f-torture/execute/io1.f
+*     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