diff options
Diffstat (limited to 'gcc-4.9/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90')
-rw-r--r-- | gcc-4.9/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc-4.9/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 b/gcc-4.9/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 new file mode 100644 index 000000000..61713c4dd --- /dev/null +++ b/gcc-4.9/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 @@ -0,0 +1,14 @@ +! { 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 |