Sign in
gnu
/
gcc
/
926d9947847a0683cf34de6fc231209747576088
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
cancel-do-1.f90
blob: 61713c4dd947c6e78880cc7a2189e2cc5d58fb85 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
set
-
target
-
env
-
var
OMP_CANCELLATION
"true"
}
use
omp_lib
integer
::
i
!
$omp parallel num_threads
(
32
)
!
$omp
do
do
i
=
0
,
999
!
$omp cancel
do
if
(
omp_get_cancellation
())
call abort
enddo
!
$omp endparallel
end