* test for previous fix

git-svn-id: trunk@3686 -
This commit is contained in:
florian 2006-05-26 19:07:36 +00:00
parent 6620181ee0
commit e192729213
2 changed files with 17 additions and 0 deletions

1
.gitattributes vendored
View File

@ -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

16
tests/webtbf/tw6970.pp Normal file
View File

@ -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.