[gcc r16-5929] a68: handle intTI_type_node in a68_type_for_size

[Jose E. Marchesi]

https://gcc.gnu.org/g:a1d895cd7a1d83c22d2544336655be14ed8a981b

commit r16-5929-ga1d895cd7a1d83c22d2544336655be14ed8a981b
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Date:   Sat Dec 6 02:47:37 2025 +0100

    a68: handle intTI_type_node in a68_type_for_size
    
    gcc/algol68/ChangeLog
    
            PR algol68/123007
            * a68-lang.cc (a68_type_for_size): Handle intTI_type_node.

Diff:
---
 gcc/algol68/a68-lang.cc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/gcc/algol68/a68-lang.cc b/gcc/algol68/a68-lang.cc
index 8ba0259ce29d..f5f316a3fdb1 100644
--- a/gcc/algol68/a68-lang.cc
+++ b/gcc/algol68/a68-lang.cc
@@ -336,6 +336,11 @@ a68_type_for_size (unsigned int bits, int unsignedp)
     }
   else
     {
+      /* Handle TImode as a special case because it is used by some backends
+         (e.g. ARM) even though it is not available for normal use.  */
+      if (bits == TYPE_PRECISION (intTI_type_node))
+	return intTI_type_node;
+
       if (bits <= TYPE_PRECISION (a68_short_short_int_type))
 	return a68_short_short_int_type;
       if (bits <= TYPE_PRECISION (a68_short_int_type))