Test formatted direct i/o too.

From-SVN: r22295

Test formatted direct i/o too.
From-SVN: r22295
b1f20ce3 · Dave Love · b76d3352 · b1f20ce3
Commit b1f20ce3 authored 26 years ago by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

gcc/testsuite/g77.f-torture/execute/io0.f
+8 -0

No files found.
--- 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