From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 29409 invoked by alias); 25 Feb 2006 10:32:26 -0000 Received: (qmail 29389 invoked by alias); 25 Feb 2006 10:32:23 -0000 Date: Sat, 25 Feb 2006 13:02:00 -0000 Message-ID: <20060225103223.29388.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/23092] 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-02/txt/msg02904.txt.bz2 List-Id: ------- Comment #4 from tkoenig at gcc dot gnu dot org 2006-02-25 10:32 ------- Subject: Bug 23092 Author: tkoenig Date: Sat Feb 25 10:32:19 2006 New Revision: 111438 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=111438 Log: 2006-02-25 Thomas Koenig 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 PR fortran/23092 * scalar_mask_1.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/scalar_mask_1.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/trans-intrinsic.c trunk/gcc/testsuite/ChangeLog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23092