From 05335610bd5cccc82d1dda41860b9e43015d67d4 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Nov 2015 12:33:58 +0000
Subject: [PATCH] codetools: added test for var with nested class type

git-svn-id: trunk@50271 -
---
 components/codetools/tests/fdt_nestedclasses.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/components/codetools/tests/fdt_nestedclasses.pas b/components/codetools/tests/fdt_nestedclasses.pas
index 09e1571611..71f37b7979 100644
--- a/components/codetools/tests/fdt_nestedclasses.pas
+++ b/components/codetools/tests/fdt_nestedclasses.pas
@@ -18,6 +18,7 @@ type
   TCustomClass = class(TBaseClass)
   public type
     TCustomSubClass = class(TBaseSubClass{declaration:fdt_nestedclasses.TBaseClass.TBaseSubClass})
+    public
       procedure DoSomething; override;
     end;
   end;
@@ -38,6 +39,10 @@ begin
 
 end;
 
-
+var
+  s: TCustomClass.TCustomSubClass;
+begin
+  s:=TCustomClass.TCustomSubClass{declaration:fdt_nestedclasses.TCustomClass.TCustomSubClass}.Create;
+  s.DoSomething{declaration:fdt_nestedclasses.TCustomClass.TCustomSubClass.DoSomething};
 end.