PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / pr37828.c
blobdf0ef7c0aa743ad9d8608783bcbe65951a4b2afe
1 /* { dg-options "-O2" } */
3 typedef struct foo
5 struct foo **Node;
6 } foo;
8 static int sort_and_split (foo **Root, foo **Finite, long first)
10 foo *cd;
11 long i;
12 for (i = 0; i < first; i++)
13 cd->Node[i] = Finite[first+i];
15 sort_and_split(Root, Finite, first);
16 return (0);
20 void Build_foo(foo **Root, foo **Finite, foo **Infinite)
22 long low, high;
23 while (sort_and_split(Root, Finite, low) == 0);