PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / lto / 20120723_1.c
blob5c50861b41895b12100760aefeed20090aff5852
1 /* Make sure that by reference and by value aggregate jump functions do not get
2 mixed up. */
4 extern void abort (void);
6 struct S
8 int i;
9 void (*f)(struct S *);
10 int j;
13 struct E
15 struct S *p;
18 extern struct S *gs;
19 extern int gr;
20 extern char gc[1024];
22 static __attribute__ ((noinline, noclone)) struct S *
23 get_s (void)
25 return (struct S *) &gc;
28 static void good_target (struct S *s)
30 gr = 0;
33 extern void bar (struct E e);
35 void foo (struct E e)
37 gs->f = good_target;
38 bar (e);