+ new test

git-svn-id: trunk@7792 -

.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

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.