diff --git a/.gitattributes b/.gitattributes
index a84c4b86e5..b2e21a5392 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6332,6 +6332,7 @@ tests/tbs/tb0534.pp svneol=native#text/plain
 tests/tbs/tb0535.pp svneol=native#text/plain
 tests/tbs/tb0536.pp svneol=native#text/plain
 tests/tbs/tb0537.pp svneol=native#text/plain
+tests/tbs/tb0538.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain
diff --git a/tests/tbs/tb0538.pp b/tests/tbs/tb0538.pp
new file mode 100644
index 0000000000..ae4f85433d
--- /dev/null
+++ b/tests/tbs/tb0538.pp
@@ -0,0 +1,19 @@
+{$mode delphi}
+type
+  to1 = class
+    procedure p1;
+    procedure p2;
+  end;
+
+procedure to1.p1;
+  begin
+  end;
+
+procedure to1.p2;
+  const
+    p1 : pointer = nil;
+  begin
+  end;
+
+begin
+end.