Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/factory-ryu-6486.B
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
cancel-parallel-1.f90
blob: 7d91ff5c1694da963c75c7c18c920b5fa9c26609 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
set
-
target
-
env
-
var
OMP_CANCELLATION
"true"
}
use
omp_lib
!
$omp parallel num_threads
(
32
)
!
$omp cancel parallel
if
(
omp_get_cancellation
())
call abort
!
$omp
end
parallel
end
