diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/eor_handling_4.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/eor_handling_4.f90 | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gcc/testsuite/gfortran.dg/eor_handling_4.f90 b/gcc/testsuite/gfortran.dg/eor_handling_4.f90 deleted file mode 100644 index 300c10b820a..00000000000 --- a/gcc/testsuite/gfortran.dg/eor_handling_4.f90 +++ /dev/null @@ -1,17 +0,0 @@ -! { dg-do run } -! PR 20092, 20131: Handle end-of-record condition with pad=yes (default) -! for standard input. This test case only really tests anything if, -! by changing unit 5, you get to manipulate the standard input. -program main - character(len=1) a(80) - close(5) - open(5,status="scratch") - write(5,'(A)') 'one', 'two', 's' - rewind(5) - do i=1,4 - read(5,'(80a1)') a - if (a(1) == 's') goto 100 - end do - call abort -100 continue -end program main |