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 |