From: Alan Modra <amodra@bigpond.net.au>
Date: Wed, 23 Nov 2005 10:18:11 +0000 (+0000)
Subject: open.c (new_unit): Use the right unit number when checking for stdin, stdout, stderr.
X-Git-Tag: releases/gcc-4.2.0~5792
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1ed1c7ce301c2eb285156b32c7d966747f6f076e;p=thirdparty%2Fgcc.git

open.c (new_unit): Use the right unit number when checking for stdin, stdout, stderr.

	* io/open.c (new_unit): Use the right unit number when checking
	for stdin, stdout, stderr.

From-SVN: r107413
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index eff28802c238..c777d347c4e6 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-23  Alan Modra  <amodra@bigpond.net.au>
+
+	* io/open.c (new_unit): Use the right unit number when checking
+	for stdin, stdout, stderr.
+
 2005-11-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/24794
diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c
index a1bc99b70eb5..54595097049b 100644
--- a/libgfortran/io/open.c
+++ b/libgfortran/io/open.c
@@ -339,9 +339,9 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags * flags)
   if ((opp->common.flags & IOPARM_OPEN_HAS_FILE) != 0)
     u2 = find_file (opp->file, opp->file_len);
   if (u2 != NULL
-      && (options.stdin_unit < 0 || u->unit_number != options.stdin_unit)
-      && (options.stdout_unit < 0 || u->unit_number != options.stdout_unit)
-      && (options.stderr_unit < 0 || u->unit_number != options.stderr_unit))
+      && (options.stdin_unit < 0 || u2->unit_number != options.stdin_unit)
+      && (options.stdout_unit < 0 || u2->unit_number != options.stdout_unit)
+      && (options.stderr_unit < 0 || u2->unit_number != options.stderr_unit))
     {
       unlock_unit (u2);
       generate_error (&opp->common, ERROR_ALREADY_OPEN, NULL);