1 files changed, 21 insertions, 0 deletions
diff --git a/tests/test/tthlp28.pp b/tests/test/tthlp28.pp
new file mode 100644
index 0000000000..4882904e84
--- /dev/null
+++ b/tests/test/tthlp28.pp
@@ -0,0 +1,21 @@
+{ %NORUN }
+
+program tthlp28;
+
+{$mode delphi}
+
+type
+  TPLongIntHelper = record helper for PLongInt
+    procedure Test;
+  end;
+
+procedure TPLongIntHelper.Test;
+begin
+
+end;
+
+var
+  p: PLongInt;
+begin
+  p.Test;
+end.