1{ Source provided for Free Pascal Bug Report 4778 }
2{ Submitted by "Phil H." on  2006-02-06 }
3{ e-mail: pjhess@purdue.edu }
4program Test1;
5
6{$mode delphi}
7
8var
9  AnInt : Longint;
10
11begin
12
13  AnInt := 1;
14
15  if single(anint) > 0.9 then
16    halt(1);
17
18//  WriteLn(Double(AnInt));
19
20end.
21