! { dg-do run }
!
! Check that pr 70697 is fixed.

program event_4
  use iso_fortran_env
  integer :: nc(1)
  type(event_type) done[*]
  nc(1) = 1
  event post(done[1])
  event wait(done,until_count=nc(1))
end