PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / id-20.c
blob7e0cf6dda1bdbe4db38a8c00f8736fc3bb683177
1 /* { dg-options "-O3 -fgraphite-identity -ffast-math" } */
3 typedef enum
5 I_SLICE,
6 } SliceType;
7 typedef struct
9 int type;
10 } ImageParameters;
11 extern ImageParameters *img;
12 int A[64], B[64], C[13][8][8], D[13][8][8];
14 void
15 foo (int q, int temp)
17 int i, j, k;
18 for(k=0; k<13; k++)
19 for(j=0; j<8; j++)
20 for(i=0; i<8; i++)
22 if (img->type == I_SLICE)
23 C[k][j][i] = A[temp] << q;
24 D[k][j][i] = B[temp] << q;