diff options
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 149f93f08e1..7e3d0a4f24c 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -1793,6 +1793,9 @@ eval_intrinsic_f3 (gfc_intrinsic_op operator, gfc_expr * gfc_parentheses (gfc_expr *op) { + if (gfc_is_constant_expr (op)) + return op; + return eval_intrinsic_f2 (INTRINSIC_PARENTHESES, gfc_arith_identity, op, NULL); } |