{ Bug: Adress to jump to in __builtin_longjmp is stored in
  a local variable while stack is unwound.
  Fixed with gcc >= 2.95. Kept in knownbugs meanwhile ... }

(* FLAG -O0 *)

program fjf479;

label 0;

procedure f;
var z : real = 0;
begin
  if z = 0 then goto 0;
  WriteLn ('failed 1');
  Halt
end;

begin
  f;
  WriteLn ('failed 2');
  Halt;
0:WriteLn ('(OK)')
end.
