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 block test_non_allocatable
  
       test_allocatable: block
         type dynamic
           character(len=:), allocatable :: string
           complex, allocatable :: scalar
           integer, allocatable :: vector(:)
           logical, allocatable :: matrix(:,:)
           real, allocatable ::  superstring(:,:,:, :,:,:, :,:,:, :,:,:, :,:,: )
         end type
  
         type(dynamic) alloc_message, alloc_content
  
         alloc_content = dynamic(                                               &
           string=text,                                                         &
           scalar=(0.,1.),                                                      &
           vector=reshape( [integer::], [0]),                                   &
           matrix=reshape( [.true.], [1,1]),                                         &
           superstring=reshape([1,2,3,4], [2,1,2, 1,1,1, 1,1,1, 1,1,1, 1,1,1 ]) &
         )
  
         if (me==sender) alloc_message = alloc_content
  
         call co_broadcast(alloc_message,source_image=sender)
  
         associate( failures => [                                 &
           alloc_message%string /= alloc_content%string,          &
           alloc_message%scalar /= alloc_content%scalar,          &
           alloc_message%vector /= alloc_content%vector,          &
           alloc_message%matrix .neqv. alloc_content%matrix,      &
           alloc_message%superstring /= alloc_content%superstring &
         ] )
  
           if ( any(failures) ) error stop "Test failed in allocatable block."
  
         end associate
  
       end block test_allocatable
  
  
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())
  
  