freepascal.compiler/tests/webtbs/tw16315a.pp

program test;
uses
  Math;
var
  D: Double;
begin
  D := Infinity;
end.