diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2003-11-24 22:48:08 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2003-11-24 21:48:08 +0000 |
| commit | 4c1bbd67f92676cc59d8ab173a12f14288d676fd (patch) | |
| tree | b634f36c6f03a8a43da141d8994fe3bf54bb5f34 /gcc/f/expr.c | |
| parent | d4c47b516068bf77dc766d93bbbe9513f858afc2 (diff) | |
| download | gcc-4c1bbd67f92676cc59d8ab173a12f14288d676fd.zip gcc-4c1bbd67f92676cc59d8ab173a12f14288d676fd.tar.gz gcc-4c1bbd67f92676cc59d8ab173a12f14288d676fd.tar.bz2 | |
re PR fortran/12633 (logical expression gives incorrect result with -fugly-logint option)
2003-11-24 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/12633
* expr.c (ffeexpr_reduced_ugly2log_): Revert
change allowing logical .and. logical to be
integer in expressions when -fugly-logint.
From-SVN: r73898
Diffstat (limited to 'gcc/f/expr.c')
| -rw-r--r-- | gcc/f/expr.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 6aeddaf..f7ee46b 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -10593,24 +10593,6 @@ ffeexpr_reduced_ugly2log_ (ffebld reduced, ffeexprExpr_ l, ffeexprExpr_ op, /* else Leave it alone. */ } - if (lbt == FFEINFO_basictypeLOGICAL) - { - ffebld_set_left (reduced, ffeexpr_convert (ffebld_left (reduced), - l->token, op->token, FFEINFO_basictypeINTEGER, - FFEINFO_kindtypeINTEGERDEFAULT, 0, - FFETARGET_charactersizeNONE, - FFEEXPR_contextLET)); - } - - if (rbt == FFEINFO_basictypeLOGICAL) - { - ffebld_set_right (reduced, ffeexpr_convert (ffebld_right (reduced), - r->token, op->token, FFEINFO_basictypeINTEGER, - FFEINFO_kindtypeINTEGERDEFAULT, 0, - FFETARGET_charactersizeNONE, - FFEEXPR_contextLET)); - } - return reduced; } |