Index: gcc/gcc/testsuite/gfortran.dg/fmt_cache_1.f |
diff --git a/gcc/gcc/testsuite/gfortran.dg/fmt_cache_1.f b/gcc/gcc/testsuite/gfortran.dg/fmt_cache_1.f |
index 825b44c11a724f63554734d130899e979c4b14b7..41de3f0d705c903827ebfd2a2c38d2d2ce197575 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/fmt_cache_1.f |
+++ b/gcc/gcc/testsuite/gfortran.dg/fmt_cache_1.f |
@@ -1,11 +1,11 @@ |
-! { dg-do run { target fd_truncate } } |
+! { dg-do run } |
! pr40662 segfaults when specific format is invoked twice. |
! pr40330 incorrect io. |
! test case derived from pr40662, <jvdelisle@gcc.gnu.org> |
program astap |
character(40) teststring |
arlxca = 0.0 |
- open(10) |
+ open(10, status="scratch") |
write(10,40) arlxca |
write(10,40) arlxca |
40 format(t4,"arlxca = ",1pg13.6,t27,"arlxcc = ",g13.6,t53, |