[Bug libfortran/79612] missing space in diagnostic: Incorrect rank of return array in

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79612

--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Would something such as the following make sense (with a proper comment and the
commented lines removed)?

--- ../_clean/libgfortran/runtime/bounds.c      2017-01-01 17:39:08.000000000
+0100
+++ libgfortran/runtime/bounds.c        2017-03-23 14:10:10.000000000 +0100
@@ -40,9 +40,10 @@ bounds_iforeach_return (array_t *retarra

   ret_rank = GFC_DESCRIPTOR_RANK (retarray);

-  if (ret_rank != 1)
-    runtime_error ("Incorrect rank of return array in %s intrinsic:"
-                  "is %ld, should be 1", name, (long int) ret_rank);
+  GFC_ASSERT(ret_rank == 1);
+  /* if (ret_rank != 1)
+    runtime_error ("Incorrect rank of return array in %s intrinsic: "
+                  "is %ld, should be 1", name, (long int) ret_rank); */

   rank = GFC_DESCRIPTOR_RANK (array);
   ret_extent = GFC_DESCRIPTOR_EXTENT(retarray,0);