anchor.diff:          message%j /= content%j,                               &
           message%k /= content%k,                               &
           message%l /= content%l,                               &
  -        message%r /= content%r,                               &
  -        message%s /= content%s,                               &
  -        message%t .neqv. content%t,                           &
  -        any( message%u .neqv. content%u )                     &
  +        message%r .neqv. content%r,                               &
  +        message%s .neqv. content%s,                               &
  +        message%t /= content%t,                           &
  +        any( message%u /= content%u )                     &
         ] )
   
           if ( any(failures) ) error stop "Test failed in non-allocatable block."
  
positive.code:       end type
  
        type, extends(parent) :: child
          type(component) a
          character(len=len(text)) :: c="", z(0)
          complex :: i=(0.,0.), j(1)=(0.,0.)
          integer :: k=0,       l(2,3)=0
          real    :: r=0.,      s(3,2,1)=0.
          logical :: t=.false., u(1,2,3, 1,2,3, 1,2,3, 1,2,3, 1,2,3)=.false.
        end type
  
        type(child) message
        type(child) :: content = child( &
          parent=parent(heritable=-2), a=component(-1), c=text, z=[character(len=len(text))::],  &
          i=(0.,1.), j=(2.,3.), k=4, l=5, r=7., s=8., t=.true., u=.true.  &
        )
        if (me==sender) message = content
  
        call co_broadcast(message,source_image=sender)
  
        associate( failures => [                                &
          message%parent%heritable /= content%parent%heritable, &
          message%a%subcomponent /= content%a%subcomponent,     &
  
negative.code: 
    integer, parameter :: sender=1 !! co_broadcast source_image
    character(len=*), parameter :: text="text" !! character message data
  
    interface
       function f(x) result(y)
         real x, y
       end function
    end interface
  
    associate(me=>this_image())
  
  