* Fix bug ID #31710: var,const,type sections can be empty in a class.

git-svn-id: trunk@35948 -

packages/fcl-passrc/tests/tcclasstype.pas

@@ -84,6 +84,7 @@ type
     Procedure TestTwoFieldsB;
     Procedure TestTwoVarFieldsB;
     procedure TestNoVarFields;
+    procedure TestVarClassFunction;
     Procedure TestTwoFieldsVisibility;
     Procedure TestConstProtectedEnd;
     Procedure TestTypeProtectedEnd;
@@ -703,6 +704,19 @@ begin
   AssertVisibility(visPublic,Members[0]);
 end;
 
+procedure TTestClassType.TestVarClassFunction;
+begin
+  StartVisibility(visPublic);
+  FDecl.Add('var');
+  AddMember('class Function b : integer');
+  ParseClass;
+  AssertEquals('member count',1,TheClass.members.Count);
+  AssertNotNull('Have function',Members[0]);
+  AssertMemberName('b',Members[0]);
+  AssertMemberType(TPasFunction,Members[0]);
+  AssertVisibility(visPublic,Members[0]);
+end;
+
 procedure TTestClassType.TestTwoFieldsVisibility;
 begin
   StartVisibility(visPublic);