* some tests for identifier reusing

tests/tbf/tbf0342.pp

@@ -0,0 +1,5 @@
+type
+  WORD=word;
+
+begin
+end.

tests/tbf/tbf0343.pp

@@ -0,0 +1,8 @@
+type
+  TListEntry = record
+    Next: ^TListEntry;                      (*<-- Error message here*)
+    Data: Integer;
+  end;
+
+begin
+end.

tests/tbf/tbf0345.pp

@@ -0,0 +1,5 @@
+var
+  WORD : array[1..2] of word;
+
+begin
+end.

tests/tbs/tbs0344.pp

@@ -0,0 +1,6 @@
+var
+  r : record
+        word : array[1..2] of word;
+      end;
+begin
+end.