* Merging revisions r46283 from trunk:

    ------------------------------------------------------------------------
    r46283 | michael | 2020-08-06 09:26:47 +0200 (Thu, 06 Aug 2020) | 1 line
    
    * Fix writing array types
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46609 -

packages/fcl-passrc/src/pastree.pp

@@ -4184,7 +4184,7 @@ begin
     if GenericTemplateTypes<>nil then
       Result:=Result+GenericTemplateTypesAsString(GenericTemplateTypes)+' = '+Result
     else
-      Result:=Result+' = '+Result;
+      Result:=SafeName+' = '+Result;
     end;
   If (IndexRange<>'') then
     Result:=Result+'['+IndexRange+']';