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

+ bug #1996 verification code

Browse Source
This commit is contained in:
carl 2002-09-07 11:07:29 +00:00
parent 24720bfb50
commit df15467477
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/webtbs/tw1996.pp Normal file
View File

@ -0,0 +1,21 @@
{ Source provided for Free Pascal Bug Report 1996 }
{ Submitted by "Louis Jean-Richard" on 2002-06-03 }
{ e-mail: Ljean_richard@compuserve.com }
PROGRAM RangeDefinition;
TYPE
codeIndex = 5 .. 287;
CONST
noCodeIndex = HIGH(codeIndex) + 1;
valuereal = 14.5 + 13.4;
CONST
noCodeIndexBis = SUCC(HIGH(codeIndex));
TYPE
codePointer = 0 + LOW(codeIndex) .. noCodeIndex;
TYPE
codePointerBis = LOW(codeIndex) .. noCodeIndex;
var
Code : CodeIndex;
BEGIN
code := 1 + LOW(codeIndex);
END
.