freepascal.compiler/tests/webtbf/tw4778a.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 4778 }
{ Submitted by "Phil H." on  2006-02-06 }
{ e-mail: [email protected] }
program Test1;

{$mode delphi}

var
  AnInt : Integer;
  
begin

  AnInt := 1;
  
//  WriteLn(Single(AnInt));

  WriteLn(Double(AnInt));
  
end.