diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-05-14 12:05:00 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-05-14 12:05:00 +0000 |
commit | 217da726fe08e160ad63abe4b3bb53f3f436c966 (patch) | |
tree | bc58f4e53acb5e16c5e3f15f186eef7ed78bb221 /tests/webtbf | |
parent | 73b9215814d738c19780097ab909539ac57ba340 (diff) | |
download | fpc-217da726fe08e160ad63abe4b3bb53f3f436c966.tar.gz |
* check range of enums and booleans in typed constant expressions when
using the asmlist generator (mantis #24428)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@24495 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbf')
-rw-r--r-- | tests/webtbf/tw24428.pp | 8 | ||||
-rw-r--r-- | tests/webtbf/tw24428a.pp | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/tests/webtbf/tw24428.pp b/tests/webtbf/tw24428.pp new file mode 100644 index 0000000000..8773ff31af --- /dev/null +++ b/tests/webtbf/tw24428.pp @@ -0,0 +1,8 @@ +{ %fail } + +{$r+} + +type abcd = (a, b, c, d); +const cd: c..d = a; +begin +end. diff --git a/tests/webtbf/tw24428a.pp b/tests/webtbf/tw24428a.pp new file mode 100644 index 0000000000..9ee48f2fc9 --- /dev/null +++ b/tests/webtbf/tw24428a.pp @@ -0,0 +1,8 @@ +{ %fail } + +{$r+} + +type tt = True..True; +const t: tt = False; +begin +end. |