Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/g++.dg/torture/pr58552.C @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 // { dg-do compile }
2 // { dg-additional-options "-fcompare-debug" }
3
4 extern void fancy_abort () __attribute__ ((__noreturn__));
5 extern "C" {
6 struct __jmp_buf_tag { };
7 typedef struct __jmp_buf_tag jmp_buf[1];
8 extern int _setjmp (struct __jmp_buf_tag __env[1]) throw ();
9 }
10 extern void *gfc_state_stack;
11 static jmp_buf eof_buf;
12 static void push_state ()
13 {
14 if (!gfc_state_stack)
15 fancy_abort ();
16 }
17 bool gfc_parse_file (void)
18 {
19 int seen_program=0;
20 if (_setjmp (eof_buf))
21 return false;
22 if (seen_program)
23 goto duplicate_main;
24 seen_program = 1;
25 push_state ();
26 push_state ();
27 duplicate_main:
28 return true;
29 }