diff --git a/TestSuite/overl_lam_exit.pas b/TestSuite/overl_lam_exit.pas
new file mode 100644
index 000000000..ed3fafb92
--- /dev/null
+++ b/TestSuite/overl_lam_exit.pas
@@ -0,0 +1,14 @@
+// #2172
+procedure p1(p: ()->()); 
+begin
+  Assert(1=1)
+end;
+
+procedure p1(p: byte->());
+begin
+  Assert(1=2)
+end;
+
+begin
+  p1(()-> exit());
+end.
\ No newline at end of file