| commit | 91b2f40f928a133632584b1622c4726cddb6b608 | |
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 25 Feb 2006 10:32:19 +0000 (25 10:32 +0000) | ||
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 25 Feb 2006 10:32:19 +0000 (25 10:32 +0000) | ||
| tree | 48fbd3a405f48a2c5a5b42dfd111d2cc2c0b1002 | treesnapshot (tar.gz zip) |
| parent | b666e08f157e4130f763e1868679135a4cb18cde | commitdiff |
2006-02-25 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/23092
* trans-intrinsic.c (gfc_conv_intrinsic_arith): If the
mask expression exists and has rank 0, enclose the generated
loop in an "if (mask)".
* (gfc_conv_intrinsic_minmaxloc): Likewise.
2006-02-25 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/23092
* scalar_mask_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111438 138bc75d-0d04-0410-961f-82ee72b054a4
PR fortran/23092
* trans-intrinsic.c (gfc_conv_intrinsic_arith): If the
mask expression exists and has rank 0, enclose the generated
loop in an "if (mask)".
* (gfc_conv_intrinsic_minmaxloc): Likewise.
2006-02-25 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/23092
* scalar_mask_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111438 138bc75d-0d04-0410-961f-82ee72b054a4