diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2006-02-10 19:08:27 +0100 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2006-02-10 19:08:27 +0100 |
| commit | 083cc29303cc3d27b400b8af8125db3f3ceb930f (patch) | |
| tree | eb3ad4ad7e033f8eb204117a20e099e37602a9cd /gcc/fortran/expr.c | |
| parent | ac1f3b7e6a5a8e2c64de9a6be9135a7423e95bd5 (diff) | |
| download | gcc-083cc29303cc3d27b400b8af8125db3f3ceb930f.tar.gz | |
re PR fortran/14771 (frontend doesn't record parentheses)
fortran/
PR fortran/14771
* arith.c (eval_intrinsic): Accept INTRINSIC_PARENTHESES.
* expr.c (check_intrinsic_op): Likewise.
* module.c (mio_expr): Likewise.
testsuite/
PR fortran/14771
* gfortran.dg/parens_4.f90: New.
* gfortran.dg/parens_5.f90: New.
From-SVN: r110840
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index c72281c6758..28a2fc81a90 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1344,6 +1344,9 @@ check_intrinsic_op (gfc_expr * e, try (*check_function) (gfc_expr *)) break; + case INTRINSIC_PARENTHESES: + break; + default: gfc_error ("Only intrinsic operators can be used in expression at %L", &e->where); |