From: Jose E. Marchesi <jose.marchesi@oracle.com>
Date: Wed, 17 Dec 2025 17:17:26 +0000 (+0100)
Subject: a68: fix handling of flex modes in complete_encoded_mode [PR algol68/123006]
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c504ab2de5ade6de24bf32bd56c9b2bfe8546e95;p=thirdparty%2Fgcc.git

a68: fix handling of flex modes in complete_encoded_mode [PR algol68/123006]

gcc/algol68/ChangeLog

	PR algol68/123006
	* a68-imports.cc (complete_encoded_mode): Fix handling of flex
	modes.
---

diff --git a/gcc/algol68/a68-imports.cc b/gcc/algol68/a68-imports.cc
index c628d21f581..2fbe15d4156 100644
--- a/gcc/algol68/a68-imports.cc
+++ b/gcc/algol68/a68-imports.cc
@@ -706,7 +706,9 @@ complete_encoded_mode (encoded_modes_map_t &encoded_modes, uint64_t offset)
       /* For recursive declarations.  */
       em->moid = a68_create_mode (em->kind == GA68_MODE_NAME ? REF_SYMBOL : FLEX_SYMBOL,
 				  0, NO_NODE, M_ERROR, NO_PACK);
-      sub = complete_encoded_mode (encoded_modes, em->data.name.sub_offset);
+      sub = complete_encoded_mode (encoded_modes,
+				   em->kind == GA68_MODE_NAME
+				   ? em->data.name.sub_offset : em->data.flex.sub_offset);
       if (sub == NO_MOID)
 	{
 	  /* Free em->moid */