diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-04 09:26:41 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-04 09:26:41 +0000 |
| commit | f0fc6ae664bae1a379cadce12d1e4177449e9b9b (patch) | |
| tree | b0681c8d399a77496e676a4acdc0cd4360e310ae | |
| parent | a0324f7b5a936736a7280638998ff9d726f0349b (diff) | |
| download | gcc-f0fc6ae664bae1a379cadce12d1e4177449e9b9b.zip gcc-f0fc6ae664bae1a379cadce12d1e4177449e9b9b.tar.gz gcc-f0fc6ae664bae1a379cadce12d1e4177449e9b9b.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/simplify.c | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index aa9fb99..ee99186 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 b31597d..3065c02 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; |