projects / gcc.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: b7ded1e) | patch
trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): If the mask expression exists and...
authorThomas Koenig <Thomas.Koenig@online.de>
Tue, 28 Feb 2006 11:12:22 +0000 (11:12 +0000)
committerThomas Koenig <tkoenig@gcc.gnu.org>
Tue, 28 Feb 2006 11:12:22 +0000 (11:12 +0000)
commit8cd25827df5714010f0b16654765843634e53950
tree8c94267614491656dfbdcdda6ad7e1741238b921tree
parentb7ded1e0c5667fee48321f1e5c367e2eda964359commit | diff
trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): If the mask expression exists and has rank 0...

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

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

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

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

From-SVN: r111562
gcc/fortran/ChangeLog diff | blob | history
gcc/fortran/trans-intrinsic.c diff | blob | history
gcc/testsuite/ChangeLog diff | blob | history
gcc/testsuite/gfortran.dg/scalar_mask_1.f90 diff | blob | history