re PR fortran/31201 (Too large unit number generates wrong code)

[gcc.git] / libgfortran / io / lock.c

diff --git a/libgfortran/io/lock.c b/libgfortran/io/lock.c
index c39188f9d61402bf626c3148b54e48af5fecb6df..39bb67090d83ec61a22ec1ca97d5dd56a399ccda 100644 (file)
--- a/libgfortran/io/lock.c
+++ b/libgfortran/io/lock.c
@@ -38,8 +38,8 @@ Boston, MA 02110-1301, USA.  */
 void
 library_start (st_parameter_common *cmp)
 {
-  if ((cmp->flags & IOPARM_HAS_IOSTAT) != 0)
-    *cmp->iostat = ERROR_OK;
+  if ((cmp->flags & IOPARM_LIBRETURN_ERROR) != 0)
+    return;
 
   cmp->flags &= ~IOPARM_LIBRETURN_MASK;
 }