Fortran: fix ALLOCATE with SOURCE of deferred character length [PR114019]
[official-gcc.git] / gcc / testsuite / gcc.dg / torture / pr66101.c
blob39d380722b463af65e264251d6067e65eb0d77f3
1 /* { dg-do compile } */
2 /* { dg-require-effective-target nonlocal_goto } */
4 #include <setjmp.h>
6 jmp_buf env;
8 int a, c, d, e;
10 int
11 bar ()
13 int b = *(long *) 7 == 5 ? : 0;
14 if (a || a > b)
15 longjmp (env, 0);
16 return 1;
19 void
20 foo ()
22 long f;
23 setjmp (env);
24 for (; d; c++)
25 switch (c)
26 case 0:
28 f = bar () >> 1;
29 if (e)
30 goto L;
31 if (bar () >> 1)
32 goto L;