From 0948d153844aa1291e8b21b754bc42aa55f5f989 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Mon, 7 Nov 2011 16:32:50 +0200 Subject: Revert previous fix for PR 45723. libgfortran ChangeLog: 2011-11-07 Janne Blomqvist PR libfortran/45723 * io/open.c (new_unit): Don't check file size before attempting seek. testsuite ChangeLog: 2011-11-07 Janne Blomqvist PR libfortran/45723 * gfortran.dg/open_dev_null.F90: Remove testcase. From-SVN: r181085 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/open.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 264f196..8253842 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2011-11-07 Janne Blomqvist + + PR libfortran/45723 + * io/open.c (new_unit): Don't check file size before attempting + seek. + 2011-11-02 Rainer Orth * Makefile.am (AM_CPPFLAGS): Add diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 0102b9c..8f969ed 100644 --- 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; } -- cgit v1.1