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