Test which checks the omp parallel sections firstprivate clause. 2.0 omp parallel sections firstprivate omp critical INTEGER FUNCTION par_section_firstprivate() IMPLICIT NONE INTEGER sum, sum0, known_sum sum = 7 sum0 = 11 !$omp parallel sections firstprivate(sum0)private(sum0) !$omp section !$omp critical sum = sum + sum0 !$omp end critical !$omp section !$omp critical sum = sum + sum0 !$omp end critical !$omp section !$omp critical sum = sum + sum0 !$omp end critical !$omp end parallel sections known_sum = 11*3 + 7 IF ( known_sum .EQ. sum ) THEN = 1 ELSE = 0 END IF END