diff options
| author | Alan Modra <amodra@bigpond.net.au> | 2005-11-23 10:18:11 +0000 |
|---|---|---|
| committer | Alan Modra <amodra@gcc.gnu.org> | 2005-11-23 20:48:11 +1030 |
| commit | 1ed1c7ce301c2eb285156b32c7d966747f6f076e (patch) | |
| tree | c73226fe410468a152c86d46858bc8c8c43c6776 | |
| parent | 7d6c1f42b4796ed351fe28bf9a0b0142ea23dcdb (diff) | |
| download | gcc-1ed1c7ce301c2eb285156b32c7d966747f6f076e.zip gcc-1ed1c7ce301c2eb285156b32c7d966747f6f076e.tar.gz gcc-1ed1c7ce301c2eb285156b32c7d966747f6f076e.tar.bz2 | |
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
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/open.c | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index eff2880..c777d34 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 a1bc99b..5459509 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); |