PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / lto / pr60461_0.c
blobcad6a8de85b1e0f592b42f22bf8add3dbde6d78e
1 /* { dg-lto-do link } */
2 /* { dg-lto-options {{-Os -flto} } } */
5 struct S
7 int f1;
8 int f2;
9 } a[1] = { {0, 0} };
11 int b, c;
13 static unsigned short fn1 (struct S);
15 void
16 fn2 ()
18 for (; c;)
20 b = 0;
21 fn1 (a[0]);
24 unsigned short
25 fn1 (struct S p)
27 if (p.f1)
28 fn2 ();
29 return 0;
32 int
33 main ()
35 fn2 ();
36 return 0;