/******************************************************************************
* FILE: raceexample_omp.c
* Author:  Amy Apon
*
* Caution!  This program has a race condition error in it! 
******************************************************************************/
#include <omp.h>
#include <stdio.h>
#include <stdlib.h>

#define LIMIT 1000000

int main (int argc, char *argv[]) {

int nthreads, tid, i, sum=0;

/* Fork a team of threads giving them their own copies of variables */
#pragma omp parallel private(nthreads,tid,i) shared(sum)
  {

  /* Obtain thread number */
  tid = omp_get_thread_num();
  printf("Hello World from thread = %d\n", tid);

  /* Only master thread does this */
  if (tid == 0) 
    {
    nthreads = omp_get_num_threads();
    printf("Number of threads = %d\n", nthreads);
    }
  { /* this is unprotected access to a shared variable */
    for (i=0; i<LIMIT; i++) {
	sum++;
/*	if (i%10000==0) printf("Thread %d here, sum=%d\n", tid, sum); */
    }
  }
#pragma omp barrier 
  printf("Hello World from thread = %d, sum = %d\n", tid, sum);

  }  /* All threads join master thread and disband */

}