mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-22 13:51:23 +01:00
29 lines
501 B
C
29 lines
501 B
C
/*
|
|
* @@name: tasking.6
|
|
* @@type: C
|
|
* @@compilable: yes
|
|
* @@linkable: no
|
|
* @@expect: success
|
|
* @@version: omp_3.0
|
|
*/
|
|
#define LARGE_NUMBER 10000000
|
|
double item[LARGE_NUMBER];
|
|
extern void process(double);
|
|
int main() {
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp single
|
|
{
|
|
int i;
|
|
#pragma omp task untied
|
|
// i is firstprivate, item is shared
|
|
{
|
|
for (i=0; i<LARGE_NUMBER; i++)
|
|
#pragma omp task
|
|
process(item[i]);
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|