This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran 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]

Fix ICE on valid code with minloc/maxloc


Hello world,

this fixes another ICE on valid code with a scalar mask for
minloc/maxloc, similar to the earlier patch.  The difference
is that I had to figure out how to put something into the "else" :-)
This particular bug doesn't have a PR, but is very closely related
to PR 23092.

The testcase is a diff because the bug is also very similar
to PR 23092.

Regression-tested on trunk.

OK?

	Thomas

2006-02-26  Thomas Koenig  <Thomas.Koenig@online.de>

	* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc):
	If the mask expression exists and has rank 0, enlose the
	generated loop in an "if (mask)".  Put the default
	initialization into the else branch.

2006-02-26  Thomas Koenig  <Thomas.Koenig@online.de>

	* scalar_mask_1.f90:  Add tests for maxloc with scalar mask.

Attachment: scalar_mask_1.f90.diff
Description: Text document

Attachment: trans-intrinsic.c.diff
Description: Text document


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