From e19272921371b2e06a23de3d307e9c1d1a354a4c Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 26 May 2006 19:07:36 +0000
Subject: [PATCH] * test for previous fix

git-svn-id: trunk@3686 -
---
 .gitattributes         |  1 +
 tests/webtbf/tw6970.pp | 16 ++++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 tests/webtbf/tw6970.pp

diff --git a/.gitattributes b/.gitattributes
index 5d40885fea..198851ab5b 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbf/tw6970.pp b/tests/webtbf/tw6970.pp
new file mode 100644
index 0000000000..7b8d8b28af
--- /dev/null
+++ b/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.