diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-02 17:17:55 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-10-02 17:17:55 +0000 |
| commit | c20a90e0c82f7037f1064693ceb17a58e4682c22 (patch) | |
| tree | a60668aea8fec9869bb3d87dc719d2fb5be85308 /gcc/fortran/simplify.c | |
| parent | 307de1007192b12dcf5b21b4444904567a543b2e (diff) | |
| download | gcc-c20a90e0c82f7037f1064693ceb17a58e4682c22.zip gcc-c20a90e0c82f7037f1064693ceb17a58e4682c22.tar.gz gcc-c20a90e0c82f7037f1064693ceb17a58e4682c22.tar.bz2 | |
re PR fortran/91784 (ICE in gfc_real2complex, at fortran/arith.c:2208)
2019-10-02 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/91784
* simplify.c (gfc_convert_constant): Simplify expression if the
expres ion type is EXPR_OP.
2019-10-02 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/91784
* gfortran.dg/pr91784.f90: New test.
From-SVN: r276474
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 3d2fc0d..32ebcc0 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -8508,10 +8508,10 @@ gfc_convert_constant (gfc_expr *e, bt type, int kind) { if (c->expr->expr_type == EXPR_ARRAY) tmp = gfc_convert_constant (c->expr, type, kind); - else if (c->expr->expr_type == EXPR_OP - && c->expr->value.op.op == INTRINSIC_PARENTHESES) + else if (c->expr->expr_type == EXPR_OP) { - gfc_simplify_expr (c->expr, 1); + if (!gfc_simplify_expr (c->expr, 1)) + return &gfc_bad_expr; tmp = f (c->expr, kind); } else |