PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / ipa / pr63551.c
blob48b020aee403bfa259f21626c55e5a7555a8e737
1 /* { dg-do run } */
2 /* { dg-options "-Os" } */
4 union U
6 unsigned int f0;
7 int f1;
8 };
10 int a, d;
12 void
13 fn1 (union U p)
15 if (p.f1 <= 0)
16 if (a)
17 d = 0;
20 void
21 fn2 ()
23 d = 0;
24 union U b = { 4294967286U };
25 fn1 (b);
28 int
29 main ()
31 fn2 ();
32 return 0;