projects
/
gcc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a3225b7
)
New test.
author
Dave Love
<fx@gcc.gnu.org>
Mon, 5 Oct 1998 11:44:03 +0000
(11:44 +0000)
committer
Dave Love
<fx@gcc.gnu.org>
Mon, 5 Oct 1998 11:44:03 +0000
(11:44 +0000)
From-SVN: r22842
gcc/testsuite/g77.f-torture/execute/io1.f
[new file with mode: 0644]
patch
|
blob
diff --git a/gcc/testsuite/g77.f-torture/execute/io1.f
b/gcc/testsuite/g77.f-torture/execute/io1.f
new file mode 100644
(file)
index 0000000..
c524244
--- /dev/null
+++ b/
gcc/testsuite/g77.f-torture/execute/io1.f
@@ -0,0
+1,10
@@
+* 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