From e1a81165ac8ab6637496acaa63cfdb83572846b3 Mon Sep 17 00:00:00 2001 From: peter Date: Wed, 16 Aug 2000 18:38:46 +0000 Subject: [PATCH] * some tests for identifier reusing --- tests/tbf/tbf0342.pp | 5 +++++ tests/tbf/tbf0343.pp | 8 ++++++++ tests/tbf/tbf0345.pp | 5 +++++ tests/tbs/tbs0344.pp | 6 ++++++ 4 files changed, 24 insertions(+) create mode 100644 tests/tbf/tbf0342.pp create mode 100644 tests/tbf/tbf0343.pp create mode 100644 tests/tbf/tbf0345.pp create mode 100644 tests/tbs/tbs0344.pp diff --git a/tests/tbf/tbf0342.pp b/tests/tbf/tbf0342.pp new file mode 100644 index 0000000000..dbf2bc9677 --- /dev/null +++ b/tests/tbf/tbf0342.pp @@ -0,0 +1,5 @@ +type + WORD=word; + +begin +end. diff --git a/tests/tbf/tbf0343.pp b/tests/tbf/tbf0343.pp new file mode 100644 index 0000000000..fee465c39b --- /dev/null +++ b/tests/tbf/tbf0343.pp @@ -0,0 +1,8 @@ +type + TListEntry = record + Next: ^TListEntry; (*<-- Error message here*) + Data: Integer; + end; + +begin +end. diff --git a/tests/tbf/tbf0345.pp b/tests/tbf/tbf0345.pp new file mode 100644 index 0000000000..01fc0c6d72 --- /dev/null +++ b/tests/tbf/tbf0345.pp @@ -0,0 +1,5 @@ +var + WORD : array[1..2] of word; + +begin +end. diff --git a/tests/tbs/tbs0344.pp b/tests/tbs/tbs0344.pp new file mode 100644 index 0000000000..a7b7772349 --- /dev/null +++ b/tests/tbs/tbs0344.pp @@ -0,0 +1,6 @@ +var + r : record + word : array[1..2] of word; + end; +begin +end.