anchor.diff:    sync all
   
     ! master_image is the controller in this communication and therefore needs
  -  ! to initiate the communication. 
  +  ! to initiate the communication.
     if (this_image() == master_image) then
       ! Transfer data from the src-vector to the dst-vector on image
       ! dst_image.  This is a transfer of a contingous block of data and here for
  
positive.code:     ! Check, that the strided get has the expected result.
      if (any(dstvec /= [4, 12, 20, 28, 36, 44])) error stop "SendGet vec/matrow does not match."
  
      ! And that both communications with stride work as expected.   
      if (any(dstmat /= reshape([-1, -1,  4, -1, &
                                 -1, -1, 12, -1, &
                                 -1, -1, 20, -1, &
  
negative.code:   ! Everything less than dst_image == 3 may make sendget use an
    ! optimized version saving a part of the communication, which is
    ! not what the test should test.
    if (num_images() < dst_image) then
       print*, "Pretend that the test was run and passed, even though there are too few images to perform test:"
       print*, "Test passed"
       error stop "Need at least three images."
    end if
  
    ! On the src_image, set some defined values, to be able to distinguish
    ! strides going wrong.
  