Test which checks the omp parallel do lastprivate directive. 2.0 omp parallel do lastprivate par do reduction, par do private INTEGER FUNCTION par_do_lastprivate() IMPLICIT NONE INTEGER sum, known_sum, i , i0 INCLUDE "omp_testsuite.f" sum = 0 i0 = -1 !$omp parallel do reduction(+:sum) schedule(static,7) lastprivate(i0)private(i0) DO i=1, LOOPCOUNT sum = sum + i i0 = i END DO !$omp end parallel do known_sum = (LOOPCOUNT*(LOOPCOUNT+1))/2 IF ( (known_sum .EQ. sum) .AND. (i0 .EQ. LOOPCOUNT) ) THEN = 1 ELSE = 0 END IF END