diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index d3f57172..f2064fb 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -465,6 +465,7 @@ gfc_copy_expr (gfc_expr *p) switch (q->value.op.operator) { case INTRINSIC_NOT: + case INTRINSIC_PARENTHESES: case INTRINSIC_UPLUS: case INTRINSIC_UMINUS: q->value.op.op1 = gfc_copy_expr (p->value.op.op1); @@ -771,8 +772,11 @@ simplify_intrinsic_op (gfc_expr *p, int type) switch (p->value.op.operator) { - case INTRINSIC_UPLUS: case INTRINSIC_PARENTHESES: + result = gfc_parentheses (op1); + break; + + case INTRINSIC_UPLUS: result = gfc_uplus (op1); break; |