From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 29532 invoked by alias); 5 Mar 2006 20:03:15 -0000 Received: (qmail 29504 invoked by alias); 5 Mar 2006 20:03:12 -0000 Date: Sun, 05 Mar 2006 20:03:00 -0000 Message-ID: <20060305200312.29503.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/23092] [4.1 only] scalar mask for minval/maxval/sum/product In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "tkoenig at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2006-03/txt/msg00544.txt.bz2 List-Id: ------- Comment #5 from tkoenig at gcc dot gnu dot org 2006-03-05 20:03 ------- Subject: Bug 23092 Author: tkoenig Date: Sun Mar 5 20:03:08 2006 New Revision: 111742 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=111742 Log: 2006-03-05 Thomas Koenig PR fortran/23092 backport from mainline * 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. * 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-03-05 Thomas Koenig PR fortran/23092 backport from mainline * gfortran.dg/scalar_mask_1.f90: New test. Added: branches/gcc-4_1-branch/gcc/testsuite/gfortran.dg/scalar_mask_1.f90 Modified: branches/gcc-4_1-branch/gcc/fortran/ChangeLog branches/gcc-4_1-branch/gcc/fortran/trans-intrinsic.c branches/gcc-4_1-branch/gcc/testsuite/ChangeLog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23092