diff --git a/TestSuite/errors/err0404.pas b/TestSuite/errors/err0404.pas
new file mode 100644
index 000000000..3548a8e53
--- /dev/null
+++ b/TestSuite/errors/err0404.pas
@@ -0,0 +1,11 @@
+type TClass = partial class
+  constructor := exit;
+
+end;
+TClass = partial class
+    constructor := exit;
+end;
+
+begin
+  
+end.
\ No newline at end of file
diff --git a/TestSuite/errors/err0405.pas b/TestSuite/errors/err0405.pas
new file mode 100644
index 000000000..9df402f91
--- /dev/null
+++ b/TestSuite/errors/err0405.pas
@@ -0,0 +1,8 @@
+type TClass = partial class
+  constructor := exit;
+  constructor := exit;
+end;
+
+begin
+  
+end.
\ No newline at end of file