* Fix bug #31709

git-svn-id: trunk@35950 -

packages/fcl-passrc/src/pparser.pp

@@ -1416,7 +1416,9 @@ begin
       // Always allowed
       tkIdentifier:
         begin
-        if CurTokenIsIdentifier('reference') then
+        // Bug 31709: PReference = ^Reference;
+        // Checked in Delphi: ^Reference to procedure; is not allowed !!
+        if CurTokenIsIdentifier('reference') and Not (Parent is TPasPointerType) then
           begin
           CH:=False;
           Result:=ParseReferencetoProcedureType(Parent,NamePos,TypeName)

packages/fcl-passrc/tests/tctypeparser.pas

@@ -161,6 +161,7 @@ type
     Procedure TestReferencePointer;
     Procedure TestInvalidColon;
     Procedure TestTypeHelper;
+    procedure TestPointerReference;
   end;
 
   { TTestRecordTypeParser }
@@ -3314,6 +3315,17 @@ begin
   ParseType('Type Helper for AnsiString end',TPasClassType,'');
 end;
 
+procedure TTestTypeParser.TestPointerReference;
+begin
+  Add('Type');
+  Add('  pReference = ^Reference;');
+  Add('  Reference = object');
+  Add('  end;');
+  ParseDeclarations;
+  AssertEquals('type definition count',1,Declarations.Types.Count);
+  AssertEquals('object definition count',1,Declarations.Classes.Count);
+end;
+
 
 initialization
   RegisterTests([TTestTypeParser,TTestRecordTypeParser,TTestProcedureTypeParser]);