! { dg-do run }
!
! Check PR fortran/70696 is fixed.

program global_event
  use iso_fortran_env, only : event_type
  implicit none
  type(event_type), save :: x[*]
  
  call exchange
  contains
    subroutine exchange
      integer :: cnt
      event post(x[1])
      event post(x[1])
      call event_query(x, cnt)
      if (cnt /= 2) error stop 1
      event wait(x, until_count=2)
    end subroutine
end