fpcsrc/tests/tbs/tb0399.pp


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

procedure error;
  begin
     writeln('Problem with octal constants');
     halt(1);
  end;

begin
   if 8<>&10 then
     error;
   if 1<>&1 then
     error;
   if 64<>&100 then
     error;
   if 33<>&41 then
     error;
   if 33<>&41 then
     error;
   if 12345678<>&57060516 then
     error;
end.