| 12345678910111213141516171819202122232425262728 |
- ! { dg-do run }
- ! { dg-options "-fopenmp" }
- !
- ! PR fortran/47886
- !
- ! Test case contributed by Bill Long
- ! derived from OpenMP test OMP3f/F03_2_7_1d.F90
- program F03_2_7_1d
- use omp_lib
- implicit none
- integer, parameter :: NT = 4
- integer :: sum = 0
- call omp_set_num_threads(NT);
- !$omp parallel
- !$omp task if(omp_get_num_threads() > 0)
- !$omp atomic
- sum = sum + 1
- !$omp end task
- !$omp end parallel
- if (sum /= NT) then
- print *, "FAIL - sum == ", sum, " (expected ", NT, ")"
- call abort
- end if
- end program F03_2_7_1d
|
