| Message ID | d96e44ae-1bd5-6690-cb68-e9768ea8839b@charter.net |
|---|---|
| State | New |
| Headers | show |
diff --git a/libgfortran/io/inquire.c b/libgfortran/io/inquire.c index 2bb518b6..7751b8df 100644 --- a/libgfortran/io/inquire.c +++ b/libgfortran/io/inquire.c @@ -41,7 +41,9 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit * u) const char *p; GFC_INTEGER_4 cf = iqp->common.flags; - if (iqp->common.unit == GFC_INTERNAL_UNIT || iqp->common.unit == GFC_INTERNAL_UNIT4) + if (iqp->common.unit == GFC_INTERNAL_UNIT || + iqp->common.unit == GFC_INTERNAL_UNIT4 || + u->internal_unit_kind != 0) generate_error (&iqp->common, LIBERROR_INQUIRE_INTERNAL_UNIT, NULL);
Committed as trivial. Reported on c.l.f Regression tested on x86-64. Regards, Jerry 2016-10-04 Jerry DeLisle <jvdelisle@gcc.gnu.org> io/inquire.c (inquire_via_unit): Add check for internal unit passed into child IO procedure. 2016-10-04 Jerry DeLisle <jvdelisle@gcc.gnu.org> * gfortran.dg/dtio_15.f90: New test. r240766 = d59520df9fe83f1a9aea7e766cef52bf6ec790df (refs/remotes/svn/trunk) A gcc/testsuite/gfortran.dg/dtio_15.f90 M libgfortran/ChangeLog M libgfortran/io/inquire.c if ((cf & IOPARM_INQUIRE_HAS_EXIST) != 0)