<commit_before><commit_msg>Demonstrate alloc component co_broadcast failure<commit_after>program main
  !! This test seg faults for if num_images() >  1
  implicit none

  type dynamic
    integer, allocatable :: vector(:)
  end type
  type(dynamic) alloc_message, alloc_content
   
  integer, parameter :: sender=1 !! co_broadcast source_image

  alloc_content%vector = [1,2,3,4]

  if (this_image()==sender) alloc_message = alloc_content

  call co_broadcast(alloc_message,source_image=sender)
  if ( any(alloc_message%vector /= alloc_content%vector) ) error stop "Test failed."

  sync all  ! Wait for each image to pass the test
  if (this_image()==sender) print *,"Test passed."

end program main
{'fraction_non_alphanumeric': 0.09557774607703282, 'fraction_numerical': 0.008559201141226819, 'mean_word_length': 4.9491525423728815, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 4, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5520828', 'n_tokens_mistral': 219, 'n_tokens_neox': 212, 'n_words': 64}