Test to see if implied shared works correctly 3.0 omp task omp single, omp task firstprivate INCLUDE "omp_my_sleep.f" INTEGER FUNCTION omp_task_shared() IMPLICIT NONE INCLUDE "omp_testsuite.f" external my_sleep INTEGER i COMMON /orphvars/ i INTEGER rslt INTEGER k i = 0 k = 0 rslt = 0 !$omp parallel private(k) shared(i) !$omp single do k=1, NUM_TASKS !$omp task firstprivate(i) !$omp+ shared(i) !$omp atomic i = i + 1 !$omp end task end do !$omp end single !$omp end parallel rslt = i if (rslt .eq. NUM_TASKS) then = 1 else = 0 end if END FUNCTION