fpcsrc/tests/tbs/tb0473.pp


1
2
3
4
5
6
7
8
9
10

const
  w = $5000;
begin
  writeln(hi(w));
  if hi(w)<>$50 then
    begin
      writeln('Error!');
      halt(1);
    end;
end.