Sign in
gnu
/
gcc
/
4aef14b09557ce072f1269bd8a05fa2b1df0eda2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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