From a1cf06b8117ea8ec340820613034319497f09549 Mon Sep 17 00:00:00 2001 From: kargl Date: Sun, 4 Sep 2016 18:43:40 +0000 Subject: 2016-09-04 Steven G. Kargl PR fortran/77460 * simplify.c (simplify_transformation_to_scalar): On error, result may be NULL, simply return. 2016-09-04 Steven G. Kargl PR fortran/77460 * gfortran.dg/pr77460.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@239979 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/simplify.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/fortran/simplify.c') diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 6e6566d9245..c396653fa1c 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -489,6 +489,8 @@ simplify_transformation_to_scalar (gfc_expr *result, gfc_expr *array, gfc_expr * } result = op (result, gfc_copy_expr (a)); + if (!result) + return result; } return result; -- cgit v1.2.1 From 056b5aee134f4f5b5b13e187519e323b2bee4c8c Mon Sep 17 00:00:00 2001 From: edlinger Date: Wed, 14 Sep 2016 18:04:39 +0000 Subject: 2016-09-14 Bernd Edlinger * simplify.c (gfc_simplify_repeat): Fix a misplaced closing ')'. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@240142 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/simplify.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/simplify.c') diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index c396653fa1c..ad547a15e47 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -5127,7 +5127,7 @@ gfc_simplify_repeat (gfc_expr *e, gfc_expr *n) if (len || (e->ts.u.cl->length && - mpz_sgn (e->ts.u.cl->length->value.integer)) != 0) + mpz_sgn (e->ts.u.cl->length->value.integer) != 0)) { const char *res = gfc_extract_int (n, &ncop); gcc_assert (res == NULL); -- cgit v1.2.1