diff --git a/tests/tbs0032.pp b/tests/tbs0032.pp
index b53d723171..7f532a3b62 100644
--- a/tests/tbs0032.pp
+++ b/tests/tbs0032.pp
@@ -1,6 +1,12 @@
 var
    p : procedure(w : word);
 
+  procedure pp(w :word);
+    begin
+       Writeln(w);
+    end;
+
 begin
+   p:=@pp;
    p(1234);
 end.