diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-10-05 11:44:03 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-10-05 11:44:03 +0000 |
| commit | bd7aa7c3f7d7090308f350f0eb65a0cade3c24a6 (patch) | |
| tree | 64f012cc66e3f22bfc492d95c3e40e87d167c7ba /gcc | |
| parent | a3225b7a3d1f0c26cd64397ea8b6c524e12d0574 (diff) | |
| download | gcc-bd7aa7c3f7d7090308f350f0eb65a0cade3c24a6.zip gcc-bd7aa7c3f7d7090308f350f0eb65a0cade3c24a6.tar.gz gcc-bd7aa7c3f7d7090308f350f0eb65a0cade3c24a6.tar.bz2 | |
New test.
From-SVN: r22842
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/io1.f | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/io1.f b/gcc/testsuite/g77.f-torture/execute/io1.f new file mode 100644 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 |