[fpc-pascal]'-Or' still buggy!

[Gheorghe Stefan BERINDE]

(* Hello,

This little program is extracted for convenience from a
large numerical application that uses floating point expressions.
It generates a 216 runtime error when is compiled
with -Or option, proving that this switch is still buggy in 1.0.5.
What should we do in this case? 

Stefan
*)

program error;

 procedure Proc_1;
 var a,b: extended;

  procedure Proc_3;
  var x,y,z,t: extended;
  begin
   x:=(1-Sqr(a))/(1+a); y:=0; z:=0; t:=0;
  end;

  procedure Proc_2;
  var c: extended;
  begin
   c:=0;
   Proc_3;
  end;

 begin
  a:=0; b:=0;
  Proc_2;
 end;

begin
 Proc_1;
end.