diff options
Diffstat (limited to 'libgfortran/io/open.c')
| -rw-r--r-- | libgfortran/io/open.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index ba6e9d8..d5b4007 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -814,7 +814,7 @@ st_open (st_parameter_open *opp) flags.convert = conv; - if (opp->common.unit < 0) + if (!(opp->common.flags & IOPARM_OPEN_HAS_NEWUNIT) && opp->common.unit < 0) generate_error (&opp->common, LIBERROR_BAD_OPTION, "Bad unit number in OPEN statement"); @@ -842,8 +842,13 @@ st_open (st_parameter_open *opp) if ((opp->common.flags & IOPARM_LIBRETURN_MASK) == IOPARM_LIBRETURN_OK) { - u = find_or_create_unit (opp->common.unit); + if ((opp->common.flags & IOPARM_OPEN_HAS_NEWUNIT)) + { + *opp->newunit = get_unique_unit_number(opp); + opp->common.unit = *opp->newunit; + } + u = find_or_create_unit (opp->common.unit); if (u->s == NULL) { u = new_unit (opp, u, &flags); |