Test which checks the omp master directive by counting up a variable in a omp master section. 2.0 omp workshare default omp critical INTEGER FUNCTION omp_workshare_default() IMPLICIT NONE INTEGER sum INTEGER known_sum INTEGER mysum INTEGER i known_sum = 999*1000/2 !$omp parallel default(private) shared(sum) !$omp do DO i = 1, 999 mysum = mysum + i END DO !$omp end do !$omp critical sum = sum + mysum !$omp end critical !$omp end parallel IF ( (known_sum .EQ. sum) ) THEN = 1 ELSE = 0 END IF END