blob: f6e28b78c8db602d39302bd2f2b5522e5f38de2f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do run }
!
! Check PR fortran/70696 is fixed.
program global_event
use iso_fortran_env , only : event_type
implicit none
type(event_type) :: 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
|
