PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / lto / pr61278_0.c
blob36cdabc0f22decdd6f2fb7df16c445bd62eea70e
1 /* { dg-lto-do link } */
2 /* { dg-lto-options { { -flto -O0 } } } */
3 /* { dg-extra-ld-options " -flto -O1 " } */
5 static unsigned int
6 fn1 (int p1, int p2)
8 return 0;
11 char a, b, c;
13 char
14 foo (char *p)
16 int i;
17 for (b = 1 ; b > 0; b++)
19 for (i = 0; i < 2; i++)
21 for (a = 1; a > 0; a++)
23 char d[1] = { 0 };
24 if (*p)
25 break;
26 c ^= fn1 (fn1 (fn1 (0, 0), 0), 0);
29 return 0;