PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / lto / 20090812_1.c
blobe91424492a086f5cd48faf8d2b2320c2c4e6eab6
1 /* struct X is complete in this TU, this causes us to not merge Y and
2 thus assign different alias-sets to them. */
3 struct X
5 int i;
6 };
7 struct Y
9 struct X *p;
10 int i;
12 extern void abort (void);
13 extern void foo(struct Y *);
14 int __attribute__((noinline)) bar(struct Y *p)
16 p->i = 0;
17 foo (p);
18 return p->i;
20 int main()
22 struct Y y;
23 if (bar (&y) != 1)
24 abort ();
25 return 0;