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.