| Index: gcc/gcc/testsuite/gfortran.dg/list_read_5.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/list_read_5.f90 b/gcc/gcc/testsuite/gfortran.dg/list_read_5.f90
|
| index 658c5249722da4bda7b88098730b1d1c24c8cec4..14b0d1648a4da07628ae1e49c5a4ab6ff4317cea 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/list_read_5.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/list_read_5.f90
|
| @@ -1,4 +1,4 @@
|
| -! { dg-do run { target fd_truncate } }
|
| +! { dg-do run }
|
| ! PR25307 Check handling of end-of-file conditions for list directed reads.
|
| ! Prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
| program pr25307
|
| @@ -18,6 +18,7 @@ program pr25307
|
| if (j.ne.0) call abort()
|
| ! Check file unit
|
| i = 0
|
| + open(10, status="scratch")
|
| write(10,'(a)') "123"
|
| rewind(10)
|
| read(10, *, end=20) i,j
|
|
|