Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/c-c++-common/cilk-plus/AN/sec_implicit_ex.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-do run } */
kono
parents:
diff changeset
2 /* { dg-options "-fcilkplus" } */
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 #define NUMBER 20
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 int main(void)
kono
parents:
diff changeset
7 {
kono
parents:
diff changeset
8 int jj, kk, array_3C[NUMBER][NUMBER][NUMBER];
kono
parents:
diff changeset
9 int ii,array[NUMBER], y = 0, y_int = 0, array2[NUMBER],
kono
parents:
diff changeset
10 array_3[NUMBER][NUMBER][NUMBER];
kono
parents:
diff changeset
11 double x, yy, array3[NUMBER], array4[NUMBER];
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 array[:] = __sec_implicit_index (0);
kono
parents:
diff changeset
14 array_3[:][:][:] = __sec_implicit_index (1) + __sec_implicit_index(0) +
kono
parents:
diff changeset
15 __sec_implicit_index (2);
kono
parents:
diff changeset
16
kono
parents:
diff changeset
17 for (ii = 0; ii < NUMBER; ii++)
kono
parents:
diff changeset
18 for (jj = 0; jj < NUMBER; jj++)
kono
parents:
diff changeset
19 for (kk = 0; kk < NUMBER; kk++)
kono
parents:
diff changeset
20 array_3C[ii][jj][kk] = ii+jj+kk;
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 for (ii = 0; ii < NUMBER; ii++)
kono
parents:
diff changeset
23 for (jj = 0; jj < NUMBER; jj++)
kono
parents:
diff changeset
24 for (kk = 0; kk < NUMBER; kk++)
kono
parents:
diff changeset
25 if (array_3[ii][jj][kk] != array_3C[ii][jj][kk])
kono
parents:
diff changeset
26 return 1;
kono
parents:
diff changeset
27
kono
parents:
diff changeset
28 return 0;
kono
parents:
diff changeset
29 }