freepascal.compiler/tests/tbf/tb0044.pp

{ %FAIL }
{ Old file: tbf0230.pp }
{ several strange happen on the ln function: ln(0): no FPE and writeln can't write non numeric values Gives out an exception on compiling because of zero div OK 0.99.11 (PM) }

{$ifdef go32v2}
uses
   dpmiexcp;
{$endif}

var
   e : extended;

begin
 e:=-1.0;
 writeln(ln(0));
 writeln(power(0,1.0));
 writeln(ln(e));
end .