[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gfortran.dg/read_bad_advance.f90

Index: gcc/gcc/testsuite/gfortran.dg/read_bad_advance.f90
diff --git a/gcc/gcc/testsuite/gfortran.dg/read_bad_advance.f90 b/gcc/gcc/testsuite/gfortran.dg/read_bad_advance.f90
index 3ca4493c451fe0ce129282c378a2f7b0456cdf04..539ada496bebca5c57a1cdccef2ad6870705f62c 100644
--- a/gcc/gcc/testsuite/gfortran.dg/read_bad_advance.f90
+++ b/gcc/gcc/testsuite/gfortran.dg/read_bad_advance.f90
@@ -1,4 +1,4 @@
-! { dg-do run { target fd_truncate } }
+! { dg-do run }
 ! PR27138 Failure to advance line on bad list directed read.
 ! Submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
       program test
@@ -7,7 +7,7 @@
       real    :: rtype
       complex :: ctype
       logical :: ltype
-      OPEN (10)
+      OPEN (10, status="scratch")
       write(10,*) "aaaa aaaa aaaa aaaa"
       write(10,*) "bbbb bbbb bbbb bbbb"
       write(10,*) "cccc cccc cccc cccc"
@@ -25,8 +25,8 @@
       goto 99
    80 READ (10,*,END=99,ERR=99) ntype
       if (ntype.ne.1234) goto 99
-      close(10, status="delete")
+      close(10)
       stop
-   99 close(10, status="delete")
+   99 close(10)
       call abort()
       end program test