+ extra test for #10998

git-svn-id: trunk@10877 -

.gitattributes

@@ -7757,6 +7757,7 @@ tests/webtbf/tw10457.pp svneol=native#text/plain
 tests/webtbf/tw10833a.pp svneol=native#text/plain
 tests/webtbf/tw10849.pp svneol=native#text/plain
 tests/webtbf/tw10890a.pp svneol=native#text/plain
+tests/webtbf/tw10998a.pp svneol=native#text/plain
 tests/webtbf/tw1157a.pp svneol=native#text/plain
 tests/webtbf/tw1238.pp svneol=native#text/plain
 tests/webtbf/tw1251a.pp svneol=native#text/plain

tests/webtbf/tw10998a.pp

@@ -0,0 +1,21 @@
+{ %fail }
+
+program statictest;
+
+{$mode delphi}{$STATIC ON}
+
+type
+  TMyClass = class
+  public
+    class procedure StaticCall; static;
+  end;
+
+class procedure TMyClass.StaticCall;
+begin
+  WriteLn('Static method was called!');
+  writeln(ptruint(self));
+end;
+
+begin
+  TMyClass.StaticCall;
+end.