1 files changed, 37 insertions, 0 deletions
diff --git a/tests/test/tmshlp5.pp b/tests/test/tmshlp5.pp
new file mode 100644
index 0000000000..ac8fd205d8
--- /dev/null
+++ b/tests/test/tmshlp5.pp
@@ -0,0 +1,37 @@
+{ %NORUN }
+
+{$mode objfpc}
+{$modeswitch multihelpers}
+
+program tmshlp5;
+
+type
+	TMyObject = class
+		constructor Create1;
+	end;
+	THelper1 = class helper for TMyObject
+		constructor Create2;
+	end;
+	THelper2 = class helper for TMyObject
+		constructor Create3;
+	end;
+
+constructor TMyObject.Create1;
+begin
+end;
+
+constructor THelper1.Create2;
+begin
+end;
+
+constructor THelper2.Create3;
+begin
+end;
+
+var
+	obj: TMyObject;
+begin
+	obj := TMyObject.Create1;
+	obj := TMyObject.Create2;
+	obj := TMyObject.Create3;
+end.