Test which checks the omp parallel do firstprivate directive. 2.0 omp parallel for firstprivate par do reduction,par do private INTEGER FUNCTION par_do_firstprivate() IMPLICIT NONE INTEGER sum,known_sum, i2, i INCLUDE "omp_testsuite.f" sum =0 i2 = 3 !$omp parallel do firstprivate(i2)private(i2) reduction(+:sum) DO i=1, LOOPCOUNT sum = sum + ( i+ i2) END DO !$omp end parallel do known_sum = (LOOPCOUNT*(LOOPCOUNT+1))/2+3*LOOPCOUNT IF ( known_sum .EQ. sum ) THEN = 1 ELSE = 0 END IF END