paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 11:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2004-05-23 20:36:46 +00:00
parent 6ae2f1b4dd
commit 5303f5e62c
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw3109.pp Normal file
View File

@ -0,0 +1,16 @@
var
l : smallint;
q : cardinal;
begin
l:=1;
{$if sizeof(l)=3}
l:=2;
{$endif}
if l<>2 then
begin
writeln('Error!');
halt(1);
end;
end.