paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improve test

Browse Source
This commit is contained in:
florian 2024-10-09 22:41:31 +02:00
parent b179e01b3f
commit e7cf7538cd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw40936.pp
View File

@ -1,10 +1,12 @@
{ %norun }
var var
b: boolean; b: boolean;
w: word; w: word;
begin begin
w := $2;
b := (w shr 1) <> 0; b := (w shr 1) <> 0;
w := w shl 1; // project1.lpr(7,3) Error: Asm: 16 or 32 bit references not supported w := w shl 1; // project1.lpr(7,3) Error: Asm: 16 or 32 bit references not supported
if b then w := w xor 1; if b then w := w xor 1;
if w<>5 then
halt(1);
end. end.