PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / scop-4.c
blob4ab2d07f48d250e36fa0b8ca2645ad529621200d
1 void bar ();
3 int toto()
5 int i, j, k;
6 int a[100][100];
7 int b[100];
9 for (i = 1; i < 100; i++)
11 for (j = 1; j < 80; j++)
12 a[j][i] = a[j+1][2*i-1*j] + 12;
14 b[i] = b[i-1] + 10;
16 for (j = 1; j < 60; j++)
17 a[j][i] = a[j+1][i-1] + 8;
19 bar ();
21 if (i == 23)
22 b[i] = a[i-1][i] + 6;
25 return a[3][5] + b[1];
28 /* { dg-final { scan-tree-dump-times "number of SCoPs: 2" 1 "graphite"} } */
29 /* { dg-final { cleanup-tree-dump "graphite" } } */