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

*** empty log message ***

Browse Source
This commit is contained in:
florian 2000-03-21 16:23:25 +00:00
parent 47617fd323
commit 2dbe07f533
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/webtbs/tbug881.pp Normal file
View File

@ -0,0 +1,14 @@
PROGRAM TEST;
TYPE
byteSet = SET OF 0..7;
booleanArray = ARRAY[0..HIGH(word) DIV 8] OF byteSet;
booleanArrayPointer = ^booleanArray;
PROCEDURE SetBooleanArray( CONST p : booleanArrayPointer;
CONST index : word );
BEGIN
INCLUDE(p^[index DIV 8],index MOD 8)
END;
BEGIN
END.