Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/c-c++-common/cilk-plus/AN/sec_implicit_ex.c @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 /* { dg-do run } */ | |
| 2 /* { dg-options "-fcilkplus" } */ | |
| 3 | |
| 4 #define NUMBER 20 | |
| 5 | |
| 6 int main(void) | |
| 7 { | |
| 8 int jj, kk, array_3C[NUMBER][NUMBER][NUMBER]; | |
| 9 int ii,array[NUMBER], y = 0, y_int = 0, array2[NUMBER], | |
| 10 array_3[NUMBER][NUMBER][NUMBER]; | |
| 11 double x, yy, array3[NUMBER], array4[NUMBER]; | |
| 12 | |
| 13 array[:] = __sec_implicit_index (0); | |
| 14 array_3[:][:][:] = __sec_implicit_index (1) + __sec_implicit_index(0) + | |
| 15 __sec_implicit_index (2); | |
| 16 | |
| 17 for (ii = 0; ii < NUMBER; ii++) | |
| 18 for (jj = 0; jj < NUMBER; jj++) | |
| 19 for (kk = 0; kk < NUMBER; kk++) | |
| 20 array_3C[ii][jj][kk] = ii+jj+kk; | |
| 21 | |
| 22 for (ii = 0; ii < NUMBER; ii++) | |
| 23 for (jj = 0; jj < NUMBER; jj++) | |
| 24 for (kk = 0; kk < NUMBER; kk++) | |
| 25 if (array_3[ii][jj][kk] != array_3C[ii][jj][kk]) | |
| 26 return 1; | |
| 27 | |
| 28 return 0; | |
| 29 } |