diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-09-06 06:24:38 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-09-06 06:24:38 +0000 |
| commit | b1f20ce35a7e918da8f9486ba6683a819a9077aa (patch) | |
| tree | 7ac0af0ad3de45abeb189278bc8262c70e3d4a05 | |
| parent | b76d335291f7807b8f6aab62b8cca601b318af1b (diff) | |
| download | gcc-b1f20ce35a7e918da8f9486ba6683a819a9077aa.zip gcc-b1f20ce35a7e918da8f9486ba6683a819a9077aa.tar.gz gcc-b1f20ce35a7e918da8f9486ba6683a819a9077aa.tar.bz2 | |
Test formatted direct i/o too.
From-SVN: r22295
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/io0.f | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/io0.f b/gcc/testsuite/g77.f-torture/execute/io0.f index d85d337..c56c991 100644 --- a/gcc/testsuite/g77.f-torture/execute/io0.f +++ b/gcc/testsuite/g77.f-torture/execute/io0.f @@ -35,4 +35,12 @@ read(90) i, r if (i/=123 .or. nint(r)/=123) call abort close(90) +* Fails at 1998-09-01 on spurious recursive i/o check (fixed by +* 1998-09-06 libI77 change): + open(90, status='scratch', form='formatted', recl=16, + + access='direct') + write(90, '(i8,f8.1)',rec=1) 123, 123.0 + read(90, '(i8,f8.1)', rec=1) i, r + if (i/=123 .or. nint(r)/=123) call abort + close(90) end |