Test formatted direct i/o too.

From-SVN: r22295

diff --git a/gcc/testsuite/g77.f-torture/execute/io0.f b/gcc/testsuite/g77.f-torture/execute/io0.f
index d85d33709599796be7a13151f73eeb303a57e6f2..c56c9919077662742c936431c31fd37832aa0de7 100644 (file)
--- 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