diff --git a/libgfortran/io/inquire.c b/libgfortran/io/inquire.c index c8b5623402c..71be879819f 100644 --- a/libgfortran/io/inquire.c +++ b/libgfortran/io/inquire.c @@ -94,7 +94,7 @@ inquire_via_unit (st_parameter_inquire *iqp, gfc_unit * u) else cf_strcpy (iqp->name, iqp->name_len, u->filename); #else - cf_strcpy (iqp->name, iqp->name_len, u->filename); + cf_strcpy (iqp->name, iqp->name_len, u->filename); #endif }