Test which checks the parallel section private clause. 2.0 omp parallel section private omp critical INTEGER FUNCTION section_private() IMPLICIT NONE INTEGER known_sum INTEGER sum,sum0,i COMMON /orphvars/ sum,sum0,i sum = 7 sum0 = 0 !$omp parallel !$omp sections private(sum0,i)private(i) !$omp section sum0 = 0 DO i=1, 399 sum0 = sum0 + i END DO !$omp critical sum = sum + sum0 !$omp end critical !$omp section sum0 = 0 DO i=400, 699 sum0 = sum0 + i END DO !$omp critical sum = sum + sum0 !$omp end critical !$omp section sum0 = 0 DO i=700, 999 sum0 = sum0 + i END DO !$omp critical sum = sum + sum0 !$omp end critical !$omp end sections !$omp end parallel known_sum = (999*1000)/2+7 IF ( known_sum .EQ. sum) THEN = 1 ELSE = 0 END IF END