diff --git a/tests/webtbs/tw2277.pp b/tests/webtbs/tw2277.pp
new file mode 100644
index 0000000000..28d46d6aa6
--- /dev/null
+++ b/tests/webtbs/tw2277.pp
@@ -0,0 +1,14 @@
+{$mode tp}
+
+type
+  tproc=procedure;
+var
+  p : tproc;
+
+function f:tproc;
+begin
+  exit(p);
+end;
+
+begin
+end.