From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <tkoenig@netcologne.de>
Received: from cc-smtpout2.netcologne.de (cc-smtpout2.netcologne.de
 [89.1.8.212])
 by sourceware.org (Postfix) with ESMTPS id 6CC5A385DC14;
 Sun,  6 Dec 2020 09:20:04 +0000 (GMT)
DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 6CC5A385DC14
Received: from cc-smtpin3.netcologne.de (cc-smtpin3.netcologne.de [89.1.8.203])
 by cc-smtpout2.netcologne.de (Postfix) with ESMTP id B9D1312B45;
 Sun,  6 Dec 2020 10:20:02 +0100 (CET)
Received: from localhost (localhost [127.0.0.1])
 by cc-smtpin3.netcologne.de (Postfix) with ESMTP id B528311E13;
 Sun,  6 Dec 2020 10:20:02 +0100 (CET)
Received: from [2a0a:a540:3bed:0:be44:4e5a:e5e9:49b3]
 (helo=cc-smtpin3.netcologne.de)
 by localhost with ESMTP (eXpurgate 4.11.6)
 (envelope-from <tkoenig@netcologne.de>)
 id 5fcca242-0799-7f0000012729-7f00000182ae-1
 for <multiple-recipients>; Sun, 06 Dec 2020 10:20:02 +0100
Received: from localhost.localdomain
 (2a0a-a540-3bed-0-be44-4e5a-e5e9-49b3.ipv6dyn.netcologne.de
 [IPv6:2a0a:a540:3bed:0:be44:4e5a:e5e9:49b3])
 (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)
 key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256)
 (No client certificate requested)
 by cc-smtpin3.netcologne.de (Postfix) with ESMTPSA;
 Sun,  6 Dec 2020 10:20:00 +0100 (CET)
To: "fortran@gcc.gnu.org" <fortran@gcc.gnu.org>
Cc: gcc-patches <gcc-patches@gcc.gnu.org>
From: Thomas Koenig <tkoenig@netcologne.de>
Subject: [patch, Fortran testsuite, committed] Fix PR 98156
Message-ID: <2911fa60-d6a2-0ee8-030b-4f3ae50d6e35@netcologne.de>
Date: Sun, 6 Dec 2020 10:19:59 +0100
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101
 Thunderbird/78.4.2
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Language: de-DE
Content-Transfer-Encoding: 7bit
X-Spam-Status: No, score=-10.9 required=5.0 tests=BAYES_00, DKIM_SIGNED,
 DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, KAM_NUMSUBJECT,
 RCVD_IN_DNSWL_LOW, RCVD_IN_MSPIKE_H3, RCVD_IN_MSPIKE_WL, SPF_HELO_NONE,
 SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.2
X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on
 server2.sourceware.org
X-BeenThere: fortran@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Fortran mailing list <fortran.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/fortran>,
 <mailto:fortran-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/fortran/>
List-Help: <mailto:fortran-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/fortran>,
 <mailto:fortran-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Sun, 06 Dec 2020 09:20:06 -0000

Hello world,

I just committed the attached patch as obvious and simple.

Best regards

	Thomas

Author: Thomas Koenig <tkoenig@gcc.gnu.org>
Date:   2020-12-06 10:14:13 +0100

     Upper cobound is determined by num_images(), not this_image().

     gcc/testsuite/ChangeLog:

             PR testsuite/98156
             * gfortran.dg/coarray/alloc_comp_1.f90: Upper cobound is
             determined by num_images(), not this_image().


diff --git a/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 
b/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90
index f809a5f4d11..cf3ece2523b 100644
--- a/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90
+++ b/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90
@@ -10,7 +10,7 @@ allocate (a%caf[3:*])
  a%caf = 7
  if (a%caf /= 7) STOP 1
  if (any (lcobound (a%caf) /= [ 3 ]) &
-    .or. ucobound (a%caf, dim=1) /= this_image ()+2)  &
+    .or. ucobound (a%caf, dim=1) /= num_images ()+2)  &
    STOP 2
  deallocate (a%caf)
  end