* new bug

tests/webtbs/tw3356.pp

@@ -0,0 +1,25 @@
+{ Source provided for Free Pascal Bug Report 3356 }
+{ Submitted by "Vincent Snijders" on  2004-10-12 }
+{ e-mail: [email protected] }
+program project1;
+
+{$mode objfpc}
+uses
+  uw3356;
+
+type
+  TB = class(TA)
+  protected
+    procedure DoB;
+  end;
+
+procedure TB.DoB;
+var
+  FA: integer;
+begin
+
+end;
+
+begin
+end.
+

tests/webtbs/uw3356.pp

@@ -0,0 +1,21 @@
+unit uw3356;
+
+{$mode objfpc}{$H+}
+
+interface
+
+type
+  TA = class
+  private
+    procedure FA;
+  end;
+
+implementation
+
+procedure TA.FA;
+begin
+
+end;
+
+end.
+