62 lines
1.8 KiB
C
62 lines
1.8 KiB
C
// Check that omp tile (introduced in OpenMP 5.1) is permitted and behaves when
|
|
// strictly nested within omp target.
|
|
|
|
// RUN: %libomptarget-compile-generic -fopenmp-version=51
|
|
// RUN: %libomptarget-run-generic 2>&1 | %fcheck-generic
|
|
|
|
#include <stdio.h>
|
|
|
|
#define I_NTILES 8
|
|
#define J_NTILES 9
|
|
#define I_NELEMS 2
|
|
#define J_NELEMS 3
|
|
|
|
int main() {
|
|
int order[I_NTILES][J_NTILES][I_NELEMS][J_NELEMS];
|
|
int i, j;
|
|
#pragma omp target map(tofrom: i, j)
|
|
{
|
|
int next = 0;
|
|
#pragma omp tile sizes(I_NELEMS, J_NELEMS)
|
|
for (i = 0; i < I_NTILES * I_NELEMS; ++i) {
|
|
for (j = 0; j < J_NTILES * J_NELEMS; ++j) {
|
|
int iTile = i / I_NELEMS;
|
|
int jTile = j / J_NELEMS;
|
|
int iElem = i % I_NELEMS;
|
|
int jElem = j % J_NELEMS;
|
|
order[iTile][jTile][iElem][jElem] = next++;
|
|
}
|
|
}
|
|
}
|
|
int expected = 0;
|
|
for (int iTile = 0; iTile < I_NTILES; ++iTile) {
|
|
for (int jTile = 0; jTile < J_NTILES; ++jTile) {
|
|
for (int iElem = 0; iElem < I_NELEMS; ++iElem) {
|
|
for (int jElem = 0; jElem < J_NELEMS; ++jElem) {
|
|
int actual = order[iTile][jTile][iElem][jElem];
|
|
if (expected != actual) {
|
|
printf("error: order[%d][%d][%d][%d] = %d, expected %d\n",
|
|
iTile, jTile, iElem, jElem, actual, expected);
|
|
return 1;
|
|
}
|
|
++expected;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
// Tiling leaves the loop variables with their values from the final iteration
|
|
// rather than with the usual +1.
|
|
expected = I_NTILES * I_NELEMS - 1;
|
|
if (i != expected) {
|
|
printf("error: i = %d, expected %d\n", i, expected);
|
|
return 1;
|
|
}
|
|
expected = J_NTILES * J_NELEMS - 1;
|
|
if (j != expected) {
|
|
printf("error: j = %d, expected %d\n", j, expected);
|
|
return 1;
|
|
}
|
|
// CHECK: success
|
|
printf("success\n");
|
|
return 0;
|
|
}
|