fpcsrc/tests/test/tmacpas5.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{$mode macpas}

procedure test;
var
  d: dword;
begin
  d:=(65 shl 24) or (66 shl 16) or (67 shl 8) or 68;
  if (d<>'ABCD') then
    halt(1);
end;

begin
  test;
end.