[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gfortran.dg/f2003_io_4.f03

Index: gcc/gcc/testsuite/gfortran.dg/f2003_io_4.f03
diff --git a/gcc/gcc/testsuite/gfortran.dg/f2003_io_4.f03 b/gcc/gcc/testsuite/gfortran.dg/f2003_io_4.f03
index 92c708c2921ccef77c88be3c11dfdc2018738042..fa09737b402d441ec8cf24da8869d113d0f74032 100644
--- a/gcc/gcc/testsuite/gfortran.dg/f2003_io_4.f03
+++ b/gcc/gcc/testsuite/gfortran.dg/f2003_io_4.f03
@@ -1,4 +1,4 @@
-! { dg-do run { target fd_truncate } }
+! { dg-do run }
 ! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 ! Test of decimal= feature
 
@@ -10,7 +10,7 @@ msg = "yes"
 a = 43.21
 b = 3.131
 c = 5.432
-open(99, decimal="comma")
+open(99, decimal="comma", status="scratch")
 write(99,'(10f8.3)') a
 a = 0.0
 rewind(99)
@@ -20,8 +20,8 @@ if (any(a.ne.43.21)) call abort
 write(msg,'(dp,f8.3,dc,f8.2,dp,f8.3)', decimal="comma") a(1), b(1), c(1)
 if (trim(msg).ne."  43.210    3,13   5.432") call abort
 
-close(99, status="delete")
-open(99, decimal="comma")
+close(99)
+open(99, decimal="comma", status="scratch")
 write(99,nml=mynml)
 a = 0.0
 b = 0.0
@@ -29,5 +29,5 @@ rewind(99)
 read(99,nml=mynml)
 if (any(a.ne.43.21)) call abort
 if (any(b.ne.3.131)) call abort
-close(99, status="delete")
+close(99)
 end