Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/g++.dg/torture/pr58552.C @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
// { dg-do compile } // { dg-additional-options "-fcompare-debug" } extern void fancy_abort () __attribute__ ((__noreturn__)); extern "C" { struct __jmp_buf_tag { }; typedef struct __jmp_buf_tag jmp_buf[1]; extern int _setjmp (struct __jmp_buf_tag __env[1]) throw (); } extern void *gfc_state_stack; static jmp_buf eof_buf; static void push_state () { if (!gfc_state_stack) fancy_abort (); } bool gfc_parse_file (void) { int seen_program=0; if (_setjmp (eof_buf)) return false; if (seen_program) goto duplicate_main; seen_program = 1; push_state (); push_state (); duplicate_main: return true; }