diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-04 09:26:41 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-05-04 09:26:41 +0000 |
| commit | 1f29764daf76f39c8aa9ebd301baba165dd91df7 (patch) | |
| tree | b0681c8d399a77496e676a4acdc0cd4360e310ae | |
| parent | 2816a4fd70d4e301d482b0451f4cbf3f42f2b1bb (diff) | |
| download | ppe42-gcc-1f29764daf76f39c8aa9ebd301baba165dd91df7.tar.gz ppe42-gcc-1f29764daf76f39c8aa9ebd301baba165dd91df7.zip | |
PR fortran/31781
* simplify.c (gfc_simplify_repeat): Don't put function call with
side effect in a gcc_assert().
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@124412 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 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; |
