Test which checks the omp parallel sections firstprivate directive.
2.0
omp parallel sections firstprivate
omp critical
#include
#include "omp_testsuite.h"
int omp_parallel_sections_firstprivate(FILE * logFile){
int sum;
int sum0;
int known_sum;
sum =7;
sum0=11;
#pragma omp parallel sections firstprivate(sum0)private(sum0)
{
#pragma omp section
{
#pragma omp critical
{
sum= sum+sum0;
} /*end of critical */
}
#pragma omp section
{
#pragma omp critical
{
sum= sum+sum0;
} /*end of critical */
}
#pragma omp section
{
#pragma omp critical
{
sum= sum+sum0;
} /*end of critical */
}
} /*end of parallel sections*/
known_sum=11*3+7;
return (known_sum==sum);
} /* end of check_section_firstprivate*/