+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.
+
2003-11-21 Kelley Cook <kcook@gcc.gnu.org>
* .cvsignore: Delete.
/* 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;
}