From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 25354 invoked by alias); 10 Apr 2011 08:36:00 -0000 Received: (qmail 25338 invoked by uid 22791); 10 Apr 2011 08:35:59 -0000 X-SWARE-Spam-Status: No, hits=-1.6 required=5.0 tests=AWL,BAYES_00 X-Spam-Check-By: sourceware.org Received: from outpost1.zedat.fu-berlin.de (HELO outpost1.zedat.fu-berlin.de) (130.133.4.66) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Sun, 10 Apr 2011 08:35:53 +0000 Received: from relay1.zedat.fu-berlin.de ([130.133.4.67]) by outpost1.zedat.fu-berlin.de (Exim 4.69) with esmtp (envelope-from ) id <1Q8q7c-00071H-2t>; Sun, 10 Apr 2011 10:35:52 +0200 Received: from squeeze64.physik.fu-berlin.de ([160.45.66.239] helo=tux.net-b.de) by relay1.zedat.fu-berlin.de (Exim 4.69) with esmtp (envelope-from ) id <1Q8q7b-00050Z-0x>; Sun, 10 Apr 2011 10:35:52 +0200 Message-ID: <4DA16BE4.8060504@net-b.de> Date: Sun, 10 Apr 2011 08:36:00 -0000 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; de; rv:1.9.2.13) Gecko/20101206 SUSE/3.1.7 Thunderbird/3.1.7 MIME-Version: 1.0 To: gcc patches , gfortran Subject: Re: [Patch, Fortran] PR 18918 - Fix/Add multi-image support to UCOBOUND References: <4D9B54FD.2050408@net-b.de> In-Reply-To: <4D9B54FD.2050408@net-b.de> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org X-SW-Source: 2011-04/txt/msg00699.txt.bz2 *ping* http://gcc.gnu.org/ml/fortran/2011-04/msg00041.html On 05.04.2011 19:44, Tobias Burnus wrote: > This patch adds multi-image support to UCOBOUND. In the > -fcoarray=single case, the last dimension is just "LCOARRAY (coarray, > dim=corank)". However, if there are multiple images, one has for > corank-1 coarrays: "lcobound(coarray) + num_images() -1" and for > multi-rank coarrays for the last dimension "lcobound(coarray, > dim=corank) + ceiling (real (num_images ()) / real (size)) - 1", where > size is the product of the extends in all but the last codimension. > > Well, that's actually all the patch does. (Except that > "ceiling(N/S)-1" is replaced by "(N+S-1)/S-1" = "(N-1)/S".) > > Build an regtested on x86-64-linux. > OK for the trunk?