diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-10 18:08:27 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-10 18:08:27 +0000 |
| commit | 9bdc6bfa502105f18aeb1f83c1aacc8959c4b4a9 (patch) | |
| tree | eb3ad4ad7e033f8eb204117a20e099e37602a9cd /gcc/fortran/arith.c | |
| parent | 674106a4d4542ea220b0159003be16ddce66f052 (diff) | |
| download | ppe42-gcc-9bdc6bfa502105f18aeb1f83c1aacc8959c4b4a9.tar.gz ppe42-gcc-9bdc6bfa502105f18aeb1f83c1aacc8959c4b4a9.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110840 138bc75d-0d04-0410-961f-82ee72b054a4
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 aac3cb4f390..a65447a9233 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. */ |
