Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
coarray
/
event_4.f08
blob: de901c01aa43c5013dee861e05cecc976db72c15 [
file
] [
log
] [
blame
]
!
{
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