* test for previous fix

git-svn-id: trunk@3686 -

.gitattributes

@@ -6096,6 +6096,7 @@ tests/webtbf/tw4911.pp svneol=native#text/plain
 tests/webtbf/tw4913.pp -text
 tests/webtbf/tw6686.pp svneol=native#text/plain
 tests/webtbf/tw6796.pp svneol=native#text/plain
+tests/webtbf/tw6970.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain
 tests/webtbf/uw0840b.pp svneol=native#text/plain

tests/webtbf/tw6970.pp

@@ -0,0 +1,16 @@
+{ %FAIL }
+program Project1;
+{$mode objfpc}{$H+}
+
+Type
+
+  TClass_A = class
+    class procedure DoIt();
+  End;
+
+procedure TClass_A.DoIt();
+begin
+end;
+
+begin
+end.