PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / pr18792.c
blob4e93fe145f365627b46d770a3ca214ef8f2fd11b
1 /* PR tree-optimization/18792 */
2 /* { dg-do compile } */
3 /* { dg-options "-O1 -ftree-loop-linear" } */
4 void put_atoms_in_triclinic_unitcell(float x[][3])
6 int i=0,d;
8 while (x[i][3] < 0)
9 for (d=0; d<=3; d++)
10 x[i][d] = 0;
12 while (x[i][3] >= 0)
13 for (d=0; d<=3; d++)
14 x[i][d] = 0;