Gcc 3.3.1-pre as of 2003-07-11.

1 files changed, 19 insertions, 0 deletions

diff --git a/contrib/gcc/f/expr.c b/contrib/gcc/f/expr.c
index 1772727..4824be7 100644
--- a/contrib/gcc/f/expr.c
+++ b/contrib/gcc/f/expr.c
@@ -48,6 +48,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include "str.h"
 #include "target.h"
 #include "where.h"
+#include "real.h"
 
 /* Externals defined here. */
 
@@ -11501,6 +11502,24 @@ 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;
 }