gcc-reflection/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 at reflection - gcc-reflection - Gitea: Git with a cup of tea

KJ16609/gcc-reflection

mirror of https://forge.sourceware.org/marek/gcc.git synced 2026-02-22 03:47:02 -05:00

Files

Tobias Burnus c425e66b27 libgomp/testsuite – use 'stop'

libgomp/
	* testsuite/libgomp.fortran/: Replace 'STOP' by 'stop'.

From-SVN: r277609

2019-10-30 12:44:54 +01:00

11 lines

208 B

Fortran

Raw Permalink Blame History

 ! { 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 ()) stop 1
   !$omp end parallel
 end