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