fcl-passrc: parser: external record field

git-svn-id: trunk@39302 -

packages/fcl-passrc/src/pparser.pp

@@ -4198,7 +4198,7 @@ begin
 
     // Note: external members are allowed for non external classes too
     ExternalStruct:=(msExternalClass in CurrentModeSwitches)
-                    and (Parent is TPasClassType);
+                    and ((Parent is TPasClassType) or (Parent is TPasRecordType));
 
     H:=H+CheckHint(Nil,False);
     if Full or ExternalStruct then

packages/fcl-passrc/tests/tcresolver.pas

@@ -7202,9 +7202,9 @@ end;
 
 procedure TTestResolver.TestRecord_VarExternal;
 begin
-  exit;
   StartProgram(false);
   Add([
+  '{$modeswitch externalclass}',
   'type',
   '  TRec = record',
   '    Id: longint external name ''$Id'';',