diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/eor_handling_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/eor_handling_2.f90 | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/gcc/testsuite/gfortran.dg/eor_handling_2.f90 b/gcc/testsuite/gfortran.dg/eor_handling_2.f90 deleted file mode 100644 index 5eb62f8a894..00000000000 --- a/gcc/testsuite/gfortran.dg/eor_handling_2.f90 +++ /dev/null @@ -1,13 +0,0 @@ -! { dg-do run } -! PR 19568: Don't read across end of line when the format is longer -! than the line length and pad='yes' (default) -program main - character(len=1) c1(10),c2(10) - open(77,status='scratch') - write(77,'(A)') 'Line 1','Line 2','Line 3' - rewind(77) - read(77,'(10A1)'), c1 - read(77,'(10A1)'), c2 - if (c1(1) /= 'L' .or. c2(1) /= 'L') call abort - close(77) -end program main |