paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-19 05:31:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 2002-08-06 21:11:27 +00:00
parent b136cecacd
commit 2eec6a0897
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/tbs/tb0399.pp Normal file
View File

@ -0,0 +1,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.