From 1ed1c7ce301c2eb285156b32c7d966747f6f076e Mon Sep 17 00:00:00 2001 From: Alan Modra Date: Wed, 23 Nov 2005 10:18:11 +0000 Subject: [PATCH] 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 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/open.c | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) 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 + + * io/open.c (new_unit): Use the right unit number when checking + for stdin, stdout, stderr. + 2005-11-22 Jerry DeLisle 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); -- 2.47.2