From b573c98e24c2ab910b98fe59f5cf601a5940f1c3 Mon Sep 17 00:00:00 2001
From: pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 23 Jan 2005 02:18:33 +0000
Subject: 2005-01-22  Thomas Koenig  <Thomas.Koenig@online.de>

	PR libfortran/19451
	* io/transfer.c (finalize_transfer):  Don't do anything if
	there is an error condition.
	* open_readonly_1.f90:  New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@94101 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libgfortran/io/transfer.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'libgfortran/io')

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 114ed92abb9..1dcbc7ff74c 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -1389,6 +1389,9 @@ next_record (int done)
 static void
 finalize_transfer (void)
 {
+  if (ioparm.library_return != LIBRARY_OK)
+    return;
+
   if ((ionml != NULL) && (ioparm.namelist_name != NULL))
     {
        if (ioparm.namelist_read_mode)
-- 
cgit v1.2.1