program main
  use, intrinsic :: iso_fortran_env
  implicit none
  type (team_type) :: odd_even
  integer :: me
  me = this_image()
  form team (mod(me, 2) + 1, odd_even)  
  change team (odd_even)
    print *, "Image", this_image(), "/", num_images(), "in team", team_number(), "(", me, ")"
  end team
end program