From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1432) id 34A59385DC14; Sun, 6 Dec 2020 09:17:21 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 34A59385DC14 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: =?utf-8?b?VGhvbWFzIEvgpKXgpJhuaWc=?= To: gcc-cvs@gcc.gnu.org Subject: [gcc r11-5803] Upper cobound is determined by num_images(), not this_image(). X-Act-Checkin: gcc X-Git-Author: Thomas Koenig X-Git-Refname: refs/heads/master X-Git-Oldrev: 1fab57f26ec24ce4e5672a7515c88611eba2483f X-Git-Newrev: bd0f0243869b3941a256ca0ea9c8aca141412f7e Message-Id: <20201206091721.34A59385DC14@sourceware.org> Date: Sun, 6 Dec 2020 09:17:21 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 06 Dec 2020 09:17:21 -0000 https://gcc.gnu.org/g:bd0f0243869b3941a256ca0ea9c8aca141412f7e commit r11-5803-gbd0f0243869b3941a256ca0ea9c8aca141412f7e Author: Thomas Koenig Date: Sun Dec 6 10:14:13 2020 +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: --- gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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