| Index: gcc/gcc/testsuite/gfortran.dg/fmt_exhaust.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/fmt_exhaust.f90 b/gcc/gcc/testsuite/gfortran.dg/fmt_exhaust.f90
|
| index bea3f8005325a43fb0d7fbe633cfad8622e68133..bd9c8bcfb3f9a4c11d686c821dbb623da6463252 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/fmt_exhaust.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/fmt_exhaust.f90
|
| @@ -1,11 +1,12 @@
|
| -! { dg-do run { target fd_truncate } }
|
| +! { dg-do run }
|
| ! PR27304 Test running out of data descriptors with data remaining.
|
| ! Derived from case in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
|
| program test
|
| implicit none
|
| integer :: n
|
| n = 1
|
| + open(10, status="scratch")
|
| write(10,"(i7,(' abcd'))", err=10) n, n
|
| call abort()
|
| - 10 close(10, status="delete")
|
| + 10 close(10)
|
| end program test
|
|
|