diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-12-06 10:14:13 +0100 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2020-12-06 10:17:02 +0100 |
| commit | bd0f0243869b3941a256ca0ea9c8aca141412f7e (patch) | |
| tree | 7bd8bfcd1f665a9b89dc86270ba2572bb4d2dcc3 /gcc | |
| parent | 1fab57f26ec24ce4e5672a7515c88611eba2483f (diff) | |
| download | gcc-bd0f0243869b3941a256ca0ea9c8aca141412f7e.zip gcc-bd0f0243869b3941a256ca0ea9c8aca141412f7e.tar.gz gcc-bd0f0243869b3941a256ca0ea9c8aca141412f7e.tar.bz2 | |
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().
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 b/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 index f809a5f..cf3ece2 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 |