This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[mainline, g77, committed] Fix for PR Fortran/12633.


Unfortunately, this fix just reverts the fix for 6491, so the number of fixed bugs is a net zero. Bootstrapped (C and Fortran only) and make -k check of g77 only (on powerpc-unknown-linux-gnu).

However, the original fix of 6491 indeed introduced a regression in 3.3, so I ask Gaby for permission to apply the attached patch to the 3.3 branch.

Thanks in advance,

--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://gcc.gnu.org/fortran/ (under construction)
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.

*** expr.c.orig	Sun Jul 20 20:00:36 2003
--- expr.c	Mon Nov 24 20:32:19 2003
*************** ffeexpr_reduced_ugly2log_ (ffebld reduce
*** 10593,10616 ****
        /* 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;
  }
  
--- 10593,10598 ----

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]