pcsx2/3rdparty/pthreads4w/tests/openmp1.c

141 lines
2.7 KiB
C

#include <stdio.h>
#include <stdlib.h>
#ifdef _OPENMP
# include <omp.h>
#endif
#include <pthread.h>
enum {
Size = 10000
};
const int ShouldSum = (Size-1)*Size/2;
short Verbose = 1;
short ThreadOK[3] = {0,0,0}; // Main, Thread1, Thread2
// Thread
void *_thread(void* Id) {
int i;
int x[Size];
#ifdef _OPENMP
# pragma omp parallel for
#endif
for ( i = 0; i < Size; i++ ) {
#ifdef _OPENMP
if (Verbose && i%1000==0) {
int tid = omp_get_thread_num();
# pragma omp critical
printf("thread %d : tid %d handles %d\n",(int)Id,tid,i);
}
#endif
x[i] = i;
}
int Sum=0;
for ( i = 0; i < Size; i++ ) {
Sum += x[i];
}
if (Verbose) {
#ifdef _OPENMP
# pragma omp critical
#endif
printf("Id %d : %s : %d(should be %d)\n",(int)Id, __FUNCTION__, Sum,ShouldSum);
}
if (Sum == ShouldSum) ThreadOK[(int)Id] = 1;
return NULL;
}
// MainThread
void MainThread() {
int i;
#ifdef _OPENMP
# pragma omp parallel for
#endif
for ( i = 0; i < 4; i++ ) {
#ifdef _OPENMP
int tid = omp_get_thread_num();
# pragma omp critical
printf("Main : tid %d\n",tid);
_thread((void *)tid);
#endif
}
return;
}
// Comment in/out for checking the effect of multiple threads.
#define SPAWN_THREADS
// main
int main(int argc, char *argv[]) {
if (argc>1) Verbose = 1;
#ifdef _OPENMP
omp_set_nested(-1);
printf("%s%s%s\n", "Nested parallel blocks are ", omp_get_nested()?" ":"NOT ", "supported.");
#endif
MainThread();
#ifdef SPAWN_THREADS
{
pthread_t a_thr;
pthread_t b_thr;
int status;
printf("%s:%d - %s - a_thr:%p - b_thr:%p\n",
__FILE__,__LINE__,__FUNCTION__,a_thr.p,b_thr.p);
status = pthread_create(&a_thr, NULL, _thread, (void*) 1 );
if ( status != 0 ) {
printf("Failed to create thread 1\n");
return (-1);
}
status = pthread_create(&b_thr, NULL, _thread, (void*) 2 );
if ( status != 0 ) {
printf("Failed to create thread 2\n");
return (-1);
}
status = pthread_join(a_thr, NULL);
if ( status != 0 ) {
printf("Failed to join thread 1\n");
return (-1);
}
printf("Joined thread1\n");
status = pthread_join(b_thr, NULL);
if ( status != 0 ) {
printf("Failed to join thread 2\n");
return (-1);
}
printf("Joined thread2\n");
}
#endif // SPAWN_THREADS
short OK = 0;
// Check that we have OpenMP before declaring things OK formally.
#ifdef _OPENMP
OK = 1;
{
short i;
for (i=0;i<3;i++) OK &= ThreadOK[i];
}
if (OK) printf("OMP : All looks good\n");
else printf("OMP : Error\n");
#else
printf("OpenMP seems not enabled ...\n");
#endif
return OK?0:1;
}
//g++ -fopenmp omp_test.c -o omp_test -lpthread