[Bug tree-optimization/58552] [4.9 Regression] -fcompare-debug failure

[rguenth at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58552

--- Comment #2 from Richard Biener <rguenth at gcc dot gnu.org> ---
Reduced:

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