! { 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