From: Thomas Koenig Date: Sun, 6 Dec 2020 09:14:13 +0000 (+0100) Subject: Upper cobound is determined by num_images(), not this_image(). X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bd0f0243869b3941a256ca0ea9c8aca141412f7e;p=gcc.git 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