| // { 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; |
| } |
