mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-21 21:31:23 +01:00
27 lines
459 B
C
27 lines
459 B
C
/*
|
|
* @@name: collapse.2
|
|
* @@type: C
|
|
* @@compilable: yes
|
|
* @@linkable: no
|
|
* @@expect: success
|
|
* @@version: omp_3.0
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
void test()
|
|
{
|
|
int j, k, jlast, klast;
|
|
#pragma omp parallel
|
|
{
|
|
#pragma omp for collapse(2) lastprivate(jlast, klast)
|
|
for (k=1; k<=2; k++)
|
|
for (j=1; j<=3; j++)
|
|
{
|
|
jlast=j;
|
|
klast=k;
|
|
}
|
|
#pragma omp single
|
|
printf("%d %d\n", klast, jlast);
|
|
}
|
|
}
|