diff --git a/tests/tbs/tbs0341.pp b/tests/tbs/tbs0341.pp
new file mode 100644
index 0000000000..38101514d6
--- /dev/null
+++ b/tests/tbs/tbs0341.pp
@@ -0,0 +1,13 @@
+procedure IncLimit(var B: Byte; const Limit: Byte; const Incr: Byte);
+begin
+end;
+procedure IncLimit(var B: Longint; const Limit: Longint; const Incr: Longint);
+begin
+end;
+
+var
+  b : byte;
+begin
+  inclimit(b,128,3);
+end.
+