From b1f20ce35a7e918da8f9486ba6683a819a9077aa Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 6 Sep 1998 06:24:38 +0000 Subject: [PATCH] Test formatted direct i/o too. From-SVN: r22295 --- gcc/testsuite/g77.f-torture/execute/io0.f | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/gcc/testsuite/g77.f-torture/execute/io0.f b/gcc/testsuite/g77.f-torture/execute/io0.f index d85d3370959..c56c9919077 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 -- 2.30.2