Test which checks the omp master directive by counting up a variable in a omp master section. 2.0 omp master omp critical INTEGER FUNCTION omp_master() IMPLICIT NONE INTEGER omp_get_thread_num INTEGER nthreads, executing_thread COMMON /orphvars/ nthreads, executing_thread nthreads=0 executing_thread=-1 !$omp parallel !$omp master !$omp critical nthreads = nthreads + 1 !$omp end critical executing_thread=omp_get_thread_num() !$omp end master !$omp end parallel IF ( (nthreads .EQ. 1) .AND. (executing_thread .EQ. 0) ) THEN = 1 ELSE = 0 END IF END