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/arith.c | |
| parent | ac1f3b7e6a5a8e2c64de9a6be9135a7423e95bd5 (diff) | |
| download | gcc-083cc29303cc3d27b400b8af8125db3f3ceb930f.zip gcc-083cc29303cc3d27b400b8af8125db3f3ceb930f.tar.gz gcc-083cc29303cc3d27b400b8af8125db3f3ceb930f.tar.bz2 | |
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/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index aac3cb4..a65447a 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -1507,6 +1507,12 @@ eval_intrinsic (gfc_intrinsic_op operator, unary = 1; break; + case INTRINSIC_PARENTHESES: + temp.ts = op1->ts; + + unary = 1; + break; + case INTRINSIC_GE: case INTRINSIC_LT: /* Additional restrictions */ case INTRINSIC_LE: /* for ordering relations. */ |