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] | |
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] |