OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Toon Moene 2003-11-24 22:48:08 +01:00 committed by Toon Moene
parent d4c47b5160
commit 4c1bbd67f9
2 changed files with 7 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/f/ChangeLog
View File

@ -1,3 +1,10 @@
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.

18
gcc/f/expr.c
View File

@ -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;
}