PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / pr60979.c
blob66fffa5395da8f27165e959849be7ee19b06ebd5
1 /* { dg-options "-O -fgraphite-identity" } */
3 #include <setjmp.h>
5 struct x;
7 typedef struct x **(*a)(struct x *);
8 void d (const char *);
10 struct x {
11 union {
12 struct {
13 union {
14 a *i;
15 } l;
16 int s;
17 } y;
18 } e;
21 jmp_buf c;
23 void
24 b(struct x *r)
26 int f;
27 static int w = 0;
28 volatile jmp_buf m;
29 f = (*(((struct x *)r)->e.y.l.i[2]((struct x *)r)))->e.y.s;
30 if (w++ != 0)
31 __builtin_memcpy((char *)m, (const char *)c, sizeof(jmp_buf));
32 if (setjmp (c) == 0) {
33 int z;
34 for (z = 0; z < 0; ++z)
37 d((const char *)m);