diff options
| author | fpc <fpc@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2005-05-16 18:37:41 +0000 |
|---|---|---|
| committer | fpc <fpc@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2005-05-16 18:37:41 +0000 |
| commit | f206a9c2b1ae1d8727ca27a96d448b61fdb4c766 (patch) | |
| tree | f28256ff9964c1fc7c0f7fb00891268a117b745d /tests/webtbs/tw1996.pp | |
| download | fpc-f206a9c2b1ae1d8727ca27a96d448b61fdb4c766.tar.gz | |
initial import
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbs/tw1996.pp')
| -rw-r--r-- | tests/webtbs/tw1996.pp | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/webtbs/tw1996.pp b/tests/webtbs/tw1996.pp new file mode 100644 index 0000000000..47c6e38d3e --- /dev/null +++ b/tests/webtbs/tw1996.pp @@ -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 +. |