freepascal.compiler/tests/webtbs/tw16315b.pp

{ %fail }
{$ieeeerrors+}
program test;
uses
  Math;
var
  D: Double;
begin
  D := Infinity;
end.