OSDN Git Service

2006-02-25 Thomas Koenig <Thomas.Koenig@online.de>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 25 Feb 2006 10:32:19 +0000 (10:32 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 25 Feb 2006 10:32:19 +0000 (10:32 +0000)
commit91b2f40f928a133632584b1622c4726cddb6b608
tree48fbd3a405f48a2c5a5b42dfd111d2cc2c0b1002
parentb666e08f157e4130f763e1868679135a4cb18cde
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
gcc/fortran/ChangeLog
gcc/fortran/trans-intrinsic.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/scalar_mask_1.f90 [new file with mode: 0644]