FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
gcc/testsuite/ChangeLog:

	PR testsuite/98156
	* gfortran.dg/coarray/alloc_comp_1.f90: Upper cobound is
	determined by num_images(), not this_image().
This commit is contained in:
Thomas Koenig 2020-12-06 10:14:13 +01:00
parent 1fab57f26e
commit bd0f024386
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90
View file

@ -10,7 +10,7 @@ allocate (a%caf[3:*])
a%caf = 7 a%caf = 7
if (a%caf /= 7) STOP 1 if (a%caf /= 7) STOP 1
if (any (lcobound (a%caf) /= [ 3 ]) & 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 STOP 2
deallocate (a%caf) deallocate (a%caf)
end end