1extern "C" void abort (void); 2int a; 3 4void 5foo () 6{ 7 int i; 8 a = 30; 9#pragma omp barrier 10#pragma omp for lastprivate (a) 11 for (i = 0; i < 1024; i++) 12 { 13 a = i; 14 } 15 if (a != 1023) 16 abort (); 17} 18 19int 20main (void) 21{ 22#pragma omp parallel num_threads (64) 23 foo (); 24 25 return 0; 26} 27