diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pad_no.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/pad_no.f90 | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/gcc/testsuite/gfortran.dg/pad_no.f90 b/gcc/testsuite/gfortran.dg/pad_no.f90 deleted file mode 100644 index c023adec815..00000000000 --- a/gcc/testsuite/gfortran.dg/pad_no.f90 +++ /dev/null @@ -1,15 +0,0 @@ -! { dg-do run } -! Test correct operation for pad='no'. -program main - character(len=1) line(2) - line = 'x' - open(77,status='scratch',pad='no') - write(77,'(A)') 'a','b' - rewind(77) - read(77,'(2A)',iostat=i) line(1) - if (line(1) /= 'a' .or. line(2) /= 'x') call abort - rewind(77) - line = 'y' - read(77,'(2A)',iostat=i,advance='no') line - if (line(1) /= 'a' .or. line(2) /= 'y') call abort -end program main |