mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 01:50:38 +00:00
28 lines
567 B
Fortran
28 lines
567 B
Fortran
|
! { 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
|