diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/io0.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/io0.f | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/io0.f b/gcc/testsuite/g77.f-torture/execute/io0.f deleted file mode 100644 index c56c9919077..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/io0.f +++ /dev/null @@ -1,46 +0,0 @@ -* Preliminary tests for a few things in the i/o library. -* Thrown together by Dave Love not from specific bug reports -- -* other ideas welcome. - - character *(*) fmt - parameter (fmt='(1x,i3,f5.1)') -* Scratch file makes sure we can use one and avoids dealing with -* explicit i/o in the testsuite. - open(90, status='scratch') ! try a biggish unit number - write(90, '()') ! extra record for interest -* Formatted i/o can go wild (endless loop AFAIR) if we're wrongly -* assuming an ANSI sprintf. - write(90, fmt) 123, 123.0 - backspace 90 ! backspace problems reported on DOSish systems - read(90, fmt) i, r - endfile 90 - if (i/=123 .or. nint(r)/=123) call abort - rewind 90 ! make sure we can rewind too - read(90, '()') - read(90, fmt) i, r - if (i/=123 .or. nint(r)/=123) call abort - close(90) -* Make sure we can do unformatted i/o OK. This might be -* problematic on DOS-like systems if we've done an fopen in text -* mode, not binary. - open(90, status='scratch', access='direct', form='unformatted', - + recl=8) - write(90, rec=1) 123, 123.0 - read(90, rec=1) i, r - if (i/=123 .or. nint(r)/=123) call abort - close(90) - open(90, status='scratch', form='unformatted') - write(90) 123, 123.0 - backspace 90 - 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 |