! { dg-do compile }
! { dg-options "-fcoarray=lib -lcaf_single" }

! Check that pr70696 is really fixed.

  use iso_fortran_env
  type(event_type) :: x[*]

  ! exchange must not be called or the link problem before the patch
  ! does not occur.
contains
  subroutine exchange
    event post (x[1])
  end subroutine
end