From 60de96894af39c707724dee73c9c1a8ece76b070 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 25 Apr 2017 12:25:13 +0000
Subject: [PATCH] * 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 | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/packages/fcl-passrc/tests/tcclasstype.pas b/packages/fcl-passrc/tests/tcclasstype.pas
index a92a053603..dd1e00d4dd 100644
--- a/packages/fcl-passrc/tests/tcclasstype.pas
+++ b/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);