| commit | 622183f42869fa29ada44fbb6a203c927b6db43c | |
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Tue, 28 Feb 2006 11:12:22 +0000 (28 11:12 +0000) | ||
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Tue, 28 Feb 2006 11:12:22 +0000 (28 11:12 +0000) | ||
| tree | 8c94267614491656dfbdcdda6ad7e1741238b921 | treesnapshot (tar.gz zip) |
| parent | 04f54a3a467d8574e44deabed571c40805c529fb | commitdiff |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111562 138bc75d-0d04-0410-961f-82ee72b054a4
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111562 138bc75d-0d04-0410-961f-82ee72b054a4