re PR fortran/85631 (Runtime error message array bound mismatch with nonzero optimiza...

[thirdparty/gcc.git] / gcc / fortran / trans-array.c

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 7e6cea15c6a00942f53434cf244dc8da7a174cd1..97c47252435d87eca1552352c1dd645bb3c5af9c 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -4304,7 +4304,7 @@ done:
        }
     }
 
-  /* The rest is just runtime bound checking.  */
+  /* The rest is just runtime bounds checking.  */
   if (gfc_option.rtcheck & GFC_RTCHECK_BOUNDS)
     {
       stmtblock_t block;
@@ -4334,7 +4334,7 @@ done:
            continue;
 
          /* Catch allocatable lhs in f2003.  */
-         if (flag_realloc_lhs && ss->is_alloc_lhs)
+         if (flag_realloc_lhs && ss->no_bounds_check)
            continue;
 
          expr = ss_info->expr;