2 ! { dg-options "-fopenmp" }
6 ! Test case contributed by Bill Long
8 ! derived from OpenMP test OMP3f/F03_2_7_1d.F90
12 integer, parameter :: NT = 4
15 call omp_set_num_threads(NT);
18 !$omp task if(omp_get_num_threads() > 0)
24 print *, "FAIL - sum == ", sum, " (expected ", NT, ")"
27 end program F03_2_7_1d