diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/noadv_size.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/noadv_size.f90 | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gcc/testsuite/gfortran.dg/noadv_size.f90 b/gcc/testsuite/gfortran.dg/noadv_size.f90 deleted file mode 100644 index a3a88b18ca7..00000000000 --- a/gcc/testsuite/gfortran.dg/noadv_size.f90 +++ /dev/null @@ -1,11 +0,0 @@ -! { dg-do run } -! PR 20774: Handle size parameter for non-advancing I/O correctly -program main - open(77,status='scratch') - write(77,'(A)') '123' - rewind(77) - read(77,'(2I2)',advance='no',iostat=k,size=n) i1,i2 - if (k >=0) call abort - if (n /= 3) call abort - if (i1 /= 12 .or. i2 /= 3) call abort -end program main |