OSDN Git Service

Revert previous fix for PR 45723.
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 7 Nov 2011 14:32:50 +0000 (14:32 +0000)
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 7 Nov 2011 14:32:50 +0000 (14:32 +0000)
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181085 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/open_dev_null.f90 [deleted file]
libgfortran/ChangeLog
libgfortran/io/open.c

index 33c4955..2338c0a 100644 (file)
@@ -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
+++ /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
index 264f196..8253842 100644 (file)
@@ -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
index 0102b9c..8f969ed 100644 (file)
@@ -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;
     }