Revert previous fix for PR 45723.

libgfortran ChangeLog:

2011-11-07  Janne Blomqvist  <jb@gcc.gnu.org>

        PR libfortran/45723
        * io/open.c (new_unit): Don't check file size before attempting
        seek.

testsuite ChangeLog:

2011-11-07  Janne Blomqvist  <jb@gcc.gnu.org>

        PR libfortran/45723
        * gfortran.dg/open_dev_null.F90: Remove testcase.

From-SVN: r181085

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 33c4955426b6f02a59b953ebed62884cdeeb588e..2338c0af1799e9a56aefd01147debcd4111b6786 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-07  Janne Blomqvist  <jb@gcc.gnu.org>
+
+        PR libfortran/45723
+        * gfortran.dg/open_dev_null.f90: Remove testcase.
+
 2011-11-07  Uros Bizjak  <ubizjak@gmail.com>
 
        * lib/target-supports.exp (check_effective_target_sync_int_128):

diff --git a/gcc/testsuite/gfortran.dg/open_dev_null.f90 b/gcc/testsuite/gfortran.dg/open_dev_null.f90
deleted file mode 100644 (file)
index 00394cb..0000000
--- a/gcc/testsuite/gfortran.dg/open_dev_null.f90
+++ /dev/null
@@ -1,9 +0,0 @@
-! { dg-do run }
-! PR45723 opening /dev/null for appending writes fails
-logical :: thefile
-inquire(file="/dev/null",exist=thefile)
-if (thefile) then
-  open(unit=7,file="/dev/null",position="append")
-  close(7)
-endif
-end

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 264f196d9df454aafca1bb7f85fdb5c1ce964b62..82538422db4209c421a065fdc3ff6b7e0747ecb0 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2011-11-07  Janne Blomqvist  <jb@gcc.gnu.org>
+
+        PR libfortran/45723
+        * io/open.c (new_unit): Don't check file size before attempting
+        seek.
+
 2011-11-02  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 
        * Makefile.am (AM_CPPFLAGS): Add

diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c
index 0102b9cf99f6e0bc3d59f55597b053a45bf31dad..8f969edb5e131a23c8c696c26920b31243d18540 100644 (file)
--- a/libgfortran/io/open.c
+++ b/libgfortran/io/open.c
@@ -554,7 +554,7 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags * flags)
 
   if (flags->position == POSITION_APPEND)
     {
-      if (file_size (opp->file, opp->file_len) > 0 && sseek (u->s, 0, SEEK_END) < 0)
+      if (sseek (u->s, 0, SEEK_END) < 0)
        generate_error (&opp->common, LIBERROR_OS, NULL);
       u->endfile = AT_ENDFILE;
     }