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

* added

Browse Source
This commit is contained in:
peter 2000-12-22 20:43:03 +00:00
parent fd9191a28d
commit dbca9ca963
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/webtbs/tw1222.pp Normal file
View File

@ -0,0 +1,25 @@
CONST
c1=$80000000;
c2=$80000001;
c3=$80000002;
c4=$80000003;
cm=$80000007;
VAR v:dword;
BEGIN
v:=c2;
CASE (v AND cm) OF
c1,c2:writeln('case c1,c2');
c3,c4:
begin
writeln('case c3,c4');
halt(1);
end;
ELSE
begin
writeln('case failed, but it should not');
halt(1);
end;
END;
END.