* Fix bug ID #31680

git-svn-id: trunk@35897 -

packages/fcl-passrc/src/pparser.pp

@@ -4638,8 +4638,11 @@ begin
       end;
     tkEOF:
       CheckToken(tkend);
-    tkBraceOpen,tkIdentifier,tkNumber,tkSquaredBraceOpen,tkMinus,tkPlus,tkinherited:
+    tkAt,tkBraceOpen,tkIdentifier,tkNumber,tkSquaredBraceOpen,tkMinus,tkPlus,tkinherited:
       begin
+// This should in fact not be checked here.
+//      if (CurToken=tkAt) and not (msDelphi in CurrentModeswitches) then
+//        ParseExc;
       left:=DoParseExpression(CurBlock);
       case CurToken of
         tkAssign,

packages/fcl-passrc/tests/tcstatements.pas

@@ -114,6 +114,7 @@ Type
     Procedure TestAsm;
     Procedure TestAsmBlock;
     Procedure TestGotoInIfThen;
+    procedure AssignToAddress;
   end;
 
 implementation
@@ -1659,6 +1660,13 @@ begin
   ParseModule;
 end;
 
+Procedure TTestStatementParser.AssignToAddress;
+
+begin
+  AddStatements(['@Proc:=Nil']);
+  ParseModule;
+end;
+
 Procedure TTestStatementParser.TestGotoInIfThen;
 
 begin