fpcsrc/tests/tbs/tb0558.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %cpu=i386}
{ %opt=-Cfsse2 }

{$mode objfpc}

type
  TChartZPosition = 0..MaxInt;
  TDoublePoint = record x, y: double; end;

var
 d: double;
 z: TChartZPosition;
begin
  d:=5.0;
  z:=3;
  d:=d-z;
  if (d<>2.0) then
    halt(1);
end.