// 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 #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; }