diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray_alloc_comp_2.f08')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_alloc_comp_2.f08 | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray_alloc_comp_2.f08 b/gcc/testsuite/gfortran.dg/coarray_alloc_comp_2.f08 index 3b3ae6c641a..b07d882196e 100644 --- a/gcc/testsuite/gfortran.dg/coarray_alloc_comp_2.f08 +++ b/gcc/testsuite/gfortran.dg/coarray_alloc_comp_2.f08 @@ -43,43 +43,43 @@ object[neighbor]%volume = vol_static object[neighbor]%matrix = reshape([(i, i=1, 70)], [10, 7]) object[neighbor]%dynvol = vol_static sync all -if (object%scalar /= 42) call abort() -if (any( object%indices /= [1,2,3,4,5] )) call abort() -if (any( object%matrix /= reshape([(i, i=1, 70)], [10, 7]))) call abort() -if (any( object%volume /= vol_static)) call abort() -if (any( object%dynvol /= vol_static)) call abort() +if (object%scalar /= 42) STOP 1 +if (any( object%indices /= [1,2,3,4,5] )) STOP 2 +if (any( object%matrix /= reshape([(i, i=1, 70)], [10, 7]))) STOP 3 +if (any( object%volume /= vol_static)) STOP 4 +if (any( object%dynvol /= vol_static)) STOP 5 vol2 = vol_static vol2(:, ::2, :) = 42 object[neighbor]%volume(:, ::2, :) = 42 object[neighbor]%dynvol(:, ::2, :) = 42 -if (any( object%volume /= vol2)) call abort() -if (any( object%dynvol /= vol2)) call abort() +if (any( object%volume /= vol2)) STOP 6 +if (any( object%dynvol /= vol2)) STOP 7 allocate(bar%vec(-2:2)) bar[neighbor]%vec(1)%volume = vol_static -if (any(bar%vec(1)%volume /= vol_static)) call abort() +if (any(bar%vec(1)%volume /= vol_static)) STOP 8 i = 15 bar[neighbor]%vec(1)%scalar = i -if (.not. allocated(bar%vec(1)%scalar)) call abort() -if (bar%vec(1)%scalar /= 15) call abort() +if (.not. allocated(bar%vec(1)%scalar)) STOP 9 +if (bar%vec(1)%scalar /= 15) STOP 10 bar[neighbor]%vec(0)%scalar = 27 -if (.not. allocated(bar%vec(0)%scalar)) call abort() -if (bar%vec(0)%scalar /= 27) call abort() +if (.not. allocated(bar%vec(0)%scalar)) STOP 11 +if (bar%vec(0)%scalar /= 27) STOP 12 bar[neighbor]%vec(1)%indices = [ 3, 4, 15 ] allocate(bar%vec(2)%indices(5)) bar[neighbor]%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%vec(2)%indices /= 89)) call abort() +if (.not. allocated(bar%vec(1)%indices)) STOP 13 +if (allocated(bar%vec(-2)%indices)) STOP 14 +if (allocated(bar%vec(-1)%indices)) STOP 15 +if (allocated(bar%vec( 0)%indices)) STOP 16 +if (.not. allocated(bar%vec( 2)%indices)) STOP 17 +if (any(bar%vec(2)%indices /= 89)) STOP 18 -if (any (bar%vec(1)%indices /= [ 3,4,15])) call abort() +if (any (bar%vec(1)%indices /= [ 3,4,15])) STOP 19 end program |