From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Fri, 4 May 2007 09:26:41 +0000 (+0000)
Subject: re PR fortran/31781 (fortran regressions on trunk if you --disable-checking)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f0fc6ae664bae1a379cadce12d1e4177449e9b9b;p=gcc.git

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 aa9fb997732..ee991869272 100644
--- 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 b31597d170b..3065c028705 100644
--- 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;