From ec710fb219a1f12195feda6ddaaf1f602ba8f297 Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Thu, 23 Feb 2023 15:33:13 +0100
Subject: [PATCH] * External objc class forward definition

---
 packages/fcl-passrc/tests/tcclasstype.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/packages/fcl-passrc/tests/tcclasstype.pas b/packages/fcl-passrc/tests/tcclasstype.pas
index cc1c5ab3e2..5f0aa9d545 100644
--- a/packages/fcl-passrc/tests/tcclasstype.pas
+++ b/packages/fcl-passrc/tests/tcclasstype.pas
@@ -74,6 +74,7 @@ type
     Procedure TestForward;
     Procedure TestForwardAndDeclaration;
     Procedure TestForwardAndDeclarationKeepForward;
+    Procedure TestForwardExternalObjCClass;
     Procedure TestOneInterface;
     Procedure TestTwoInterfaces;
     procedure TestOneSpecializedClass;
@@ -590,6 +591,14 @@ begin
   ParseClass;
 end;
 
+Procedure TTestClassType.TestForwardExternalObjCClass;
+begin
+  FStarted:=True;
+  FEnded:=True;
+  FDecl.Add('TMyClass = ObjcClass external');
+  ParseClass;
+end;
+
 procedure TTestClassType.TestForwardAndDeclaration;
 begin
   FStarted:=True;