[gcc r16-9328] a68: remove unimplemented math functions from is_mappable_routine

[Jose E. Marchesi]

https://gcc.gnu.org/g:690a2eb4ad3e76d39265d361d9b22c3a83c927d5

commit r16-9328-g690a2eb4ad3e76d39265d361d9b22c3a83c927d5
Author: Jose E. Marchesi <jemarch@gnu.org>
Date:   Sun May 10 12:16:24 2026 +0200

    a68: remove unimplemented math functions from is_mappable_routine
    
    The is_mappable_routine function has to identify all routines that are
    lengthety-mapped.  This includes math functions like sin and cos.
    
    This patch removes the handling of several math routines that we are
    not implementing as compiler builtins:
    
            arccosdg          cbrt              curt              gammaincgf
            arccotdg          cosdg             erf               sindg
            arcsindg          cospi             erfc              sinpi
            arctandg          cot               gamma             tandg
            beta              cotdg             gammainc          tanpi
            betainc           cotpi             gammaincg
    
    If these routines ever get added to the extended standard prelude, it
    will be as regular procedures rather than compiler builtins.
    
    Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
    Reported-by: "Nelson H. F. Beebe" <beebe@math.utah.edu>
    
    gcc/algol68/ChangeLog
    
            * a68-parser-taxes.cc (is_mappable_routine): Remove handling of
            non-implemented math functions.
    
    (cherry picked from commit 23f43aa6bddccf1a02cd8c6d797bfd0d2c0bf8f8)

Diff:
---
 gcc/algol68/a68-parser-taxes.cc | 24 ------------------------
 1 file changed, 24 deletions(-)

diff --git a/gcc/algol68/a68-parser-taxes.cc b/gcc/algol68/a68-parser-taxes.cc
index 6227732ebc64..52065531f6b1 100644
--- a/gcc/algol68/a68-parser-taxes.cc
+++ b/gcc/algol68/a68-parser-taxes.cc
@@ -142,41 +142,17 @@ is_mappable_routine (const char *z)
 
   /* Math routines.  */
   ACCEPT (z, "arccos");
-  ACCEPT (z, "arccosdg");
   ACCEPT (z, "arccot");
-  ACCEPT (z, "arccotdg");
   ACCEPT (z, "arcsin");
-  ACCEPT (z, "arcsindg");
   ACCEPT (z, "arctan");
-  ACCEPT (z, "arctandg");
-  ACCEPT (z, "beta");
-  ACCEPT (z, "betainc");
-  ACCEPT (z, "cbrt");
   ACCEPT (z, "cos");
-  ACCEPT (z, "cosdg");
-  ACCEPT (z, "cospi");
-  ACCEPT (z, "cot");
-  ACCEPT (z, "cot");
-  ACCEPT (z, "cotdg");
-  ACCEPT (z, "cotpi");
-  ACCEPT (z, "curt");
-  ACCEPT (z, "erf");
-  ACCEPT (z, "erfc");
   ACCEPT (z, "exp");
-  ACCEPT (z, "gamma");
-  ACCEPT (z, "gammainc");
-  ACCEPT (z, "gammaincg");
-  ACCEPT (z, "gammaincgf");
   ACCEPT (z, "ln");
   ACCEPT (z, "log");
   ACCEPT (z, "pi");
   ACCEPT (z, "sin");
-  ACCEPT (z, "sindg");
-  ACCEPT (z, "sinpi");
   ACCEPT (z, "sqrt");
   ACCEPT (z, "tan");
-  ACCEPT (z, "tandg");
-  ACCEPT (z, "tanpi");
   /* Random generator.  */
   ACCEPT (z, "nextrandom");
   ACCEPT (z, "random");