blob: 4912e6c6ce564c1b8089f0a057d5815287b4c6fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
/* { dg-do run } */
/* { dg-options "-fcilkplus" } */
int main(void)
{
int jj, kk, array_3C[10][10][10];
int ii,array[10], y = 0, y_int = 0, array2[10], array_3[10][10][10];
double x, yy, array3[10], array4[10];
array[:] = __sec_implicit_index (0);
array_3[:][:][:] = __sec_implicit_index (1) + __sec_implicit_index(0) +
__sec_implicit_index (2);
for (ii = 0; ii < 10; ii++)
for (jj = 0; jj < 10; jj++)
for (kk = 0; kk < 10; kk++)
array_3C[ii][jj][kk] = ii+jj+kk;
for (ii = 0; ii < 10; ii++)
for (jj = 0; jj < 10; jj++)
for (kk = 0; kk < 10; kk++)
if (array_3[ii][jj][kk] != array_3C[ii][jj][kk])
return 1;
return 0;
}
|
