re PR fortran/31781 (fortran regressions on trunk if you --disable-checking)

	PR fortran/31781
	* simplify.c (gfc_simplify_repeat): Don't put function call with
	side effect in a gcc_assert().

From-SVN: r124412

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index aa9fb997732bbc91f1fe6d69280faa99b0157873..ee9918692728def8dd3bc7794a805430646ad4df 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-05-04  Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
+
+       PR fortran/31781
+       * simplify.c (gfc_simplify_repeat): Don't put function call with
+       side effect in a gcc_assert().
+
 2007-05-04  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/25071

diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index b31597d170bc190d5790554cc6bf94c5fde1d5c4..3065c02870518106ed6fca60a6c0eca004c4425d 100644 (file)
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -2919,7 +2919,10 @@ gfc_simplify_repeat (gfc_expr *e, gfc_expr *n)
     return NULL;
 
   if (mpz_sgn (e->ts.cl->length->value.integer) != 0)
-    gcc_assert (gfc_extract_int (n, &ncop) == NULL);
+    {
+      const char *res = gfc_extract_int (n, &ncop);
+      gcc_assert (res == NULL);
+    }
   else
     ncop = 0;