diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray_alloc_comp_1.f08')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_alloc_comp_1.f08 | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray_alloc_comp_1.f08 b/gcc/testsuite/gfortran.dg/coarray_alloc_comp_1.f08 index 8c35fc8093b..0efef49d2a4 100644 --- a/gcc/testsuite/gfortran.dg/coarray_alloc_comp_1.f08 +++ b/gcc/testsuite/gfortran.dg/coarray_alloc_comp_1.f08 @@ -44,52 +44,52 @@ object%matrix = reshape([(i, i=1, 70)], [10, 7]) object%dynvol = vol_static sync all neighbor = merge(1,neighbor,me==num_images()) -if (object[neighbor]%scalar /= 42) call abort() -if (object[neighbor]%indices(4) /= 4) call abort() -if (object[neighbor]%matrix(3,6) /= 53) call abort() -if (any( object[neighbor]%indices(:) /= [1,2,3,4,5] )) call abort() -if (any( object[neighbor]%matrix(:,:) /= reshape([(i, i=1, 70)], [10, 7]))) call abort() -if (any( object[neighbor]%matrix(3,:) /= [(i * 10 + 3, i=0, 6)])) call abort() -if (any( object[neighbor]%matrix(:,2) /= [(i + 10, i=1, 10)])) call abort() -if (any( object[neighbor]%matrix(idx,2) /= [11, 12, 11, 17, 15])) call abort() -if (any( object[neighbor]%matrix(3,idx) /= [3, 13, 3, 63, 43])) call abort() -if (any( object[neighbor]%matrix(2:8:4, 5:1:-1) /= reshape([42, 46, 32, 36, 22, 26, 12, 16, 2, 6], [2,5]))) call abort() -if (any( object[neighbor]%matrix(:8:4, 2::2) /= reshape([11, 15, 31, 35, 51, 55], [2,3]))) call abort() -if (any( object[neighbor]%volume /= vol_static)) call abort() -if (any( object[neighbor]%dynvol /= vol_static)) call abort() -if (any( object[neighbor]%volume(:, 2:4, :) /= vol_static(:, 2:4, :))) call abort() -if (any( object[neighbor]%dynvol(:, 2:4, :) /= vol_static(:, 2:4, :))) call abort() +if (object[neighbor]%scalar /= 42) STOP 1 +if (object[neighbor]%indices(4) /= 4) STOP 2 +if (object[neighbor]%matrix(3,6) /= 53) STOP 3 +if (any( object[neighbor]%indices(:) /= [1,2,3,4,5] )) STOP 4 +if (any( object[neighbor]%matrix(:,:) /= reshape([(i, i=1, 70)], [10, 7]))) STOP 5 +if (any( object[neighbor]%matrix(3,:) /= [(i * 10 + 3, i=0, 6)])) STOP 6 +if (any( object[neighbor]%matrix(:,2) /= [(i + 10, i=1, 10)])) STOP 7 +if (any( object[neighbor]%matrix(idx,2) /= [11, 12, 11, 17, 15])) STOP 8 +if (any( object[neighbor]%matrix(3,idx) /= [3, 13, 3, 63, 43])) STOP 9 +if (any( object[neighbor]%matrix(2:8:4, 5:1:-1) /= reshape([42, 46, 32, 36, 22, 26, 12, 16, 2, 6], [2,5]))) STOP 10 +if (any( object[neighbor]%matrix(:8:4, 2::2) /= reshape([11, 15, 31, 35, 51, 55], [2,3]))) STOP 11 +if (any( object[neighbor]%volume /= vol_static)) STOP 12 +if (any( object[neighbor]%dynvol /= vol_static)) STOP 13 +if (any( object[neighbor]%volume(:, 2:4, :) /= vol_static(:, 2:4, :))) STOP 14 +if (any( object[neighbor]%dynvol(:, 2:4, :) /= vol_static(:, 2:4, :))) STOP 15 vol2 = vol_static(:, ::2, :) -if (any( object[neighbor]%volume(:, ::2, :) /= vol2)) call abort() -if (any( object[neighbor]%dynvol(:, ::2, :) /= vol2)) call abort() +if (any( object[neighbor]%volume(:, ::2, :) /= vol2)) STOP 16 +if (any( object[neighbor]%dynvol(:, ::2, :) /= vol2)) STOP 17 allocate(bar%vec(-2:2)) bar%vec(1)%volume = vol_static -if (any(bar[neighbor]%vec(1)%volume /= vol_static)) call abort() +if (any(bar[neighbor]%vec(1)%volume /= vol_static)) STOP 18 i = 15 bar%vec(1)%scalar = i -if (.not. allocated(bar%vec(1)%scalar)) call abort() -if (bar[neighbor]%vec(1)%scalar /= 15) call abort() +if (.not. allocated(bar%vec(1)%scalar)) STOP 19 +if (bar[neighbor]%vec(1)%scalar /= 15) STOP 20 bar%vec(0)%scalar = 27 -if (.not. allocated(bar%vec(0)%scalar)) call abort() -if (bar[neighbor]%vec(0)%scalar /= 27) call abort() +if (.not. allocated(bar%vec(0)%scalar)) STOP 21 +if (bar[neighbor]%vec(0)%scalar /= 27) STOP 22 bar%vec(1)%indices = [ 3, 4, 15 ] allocate(bar%vec(2)%indices(5)) bar%vec(2)%indices = 89 -if (.not. allocated(bar%vec(1)%indices)) call abort() -if (allocated(bar%vec(-2)%indices)) call abort() -if (allocated(bar%vec(-1)%indices)) call abort() -if (allocated(bar%vec( 0)%indices)) call abort() -if (.not. allocated(bar%vec( 2)%indices)) call abort() -if (any(bar[me]%vec(2)%indices /= 89)) call abort() +if (.not. allocated(bar%vec(1)%indices)) STOP 23 +if (allocated(bar%vec(-2)%indices)) STOP 24 +if (allocated(bar%vec(-1)%indices)) STOP 25 +if (allocated(bar%vec( 0)%indices)) STOP 26 +if (.not. allocated(bar%vec( 2)%indices)) STOP 27 +if (any(bar[me]%vec(2)%indices /= 89)) STOP 28 -if (any (bar[neighbor]%vec(1)%indices /= [ 3,4,15])) call abort() +if (any (bar[neighbor]%vec(1)%indices /= [ 3,4,15])) STOP 29 deallocate(bar%vec(2)%indices, object%scalar, object%matrix) deallocate(bar%vec) |