tb0044.pp 358 B

123456789101112131415161718
  1. { %FAIL }
  2. { Old file: tbf0230.pp }
  3. { 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) }
  4. {$ifdef go32v2}
  5. uses
  6. dpmiexcp;
  7. {$endif}
  8. var
  9. e : extended;
  10. begin
  11. e:=-1.0;
  12. writeln(ln(0));
  13. writeln(power(0,1.0));
  14. writeln(ln(e));
  15. end .