[Bug fortran/99061] New: [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[Bug fortran/99061] New: [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[gscfq@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

            Bug ID: 99061
           Summary: [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d,
                    at fortran/trans-intrinsic.c:4728
           Product: gcc
           Version: 11.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Changed between 20200308 and 20200412 :


$ cat z1.f90
program p
   real(16) :: a = 1.0_16
   z = atan2d(a, a)
end


$ gfortran-10-20200308 -c z1.f90
$
$ gfortran-11-20210207 -c z1.f90
z1.f90:3:19:

    3 |    z = atan2d(a, a)
      |                   1
internal compiler error: Segmentation fault
0xc093ef crash_signal
        ../../gcc/toplev.c:327
0xe8528e build_call_expr_loc_array(unsigned int, tree_node*, int, tree_node**)
        ../../gcc/tree.c:11558
0xe8536f build_call_expr_loc(unsigned int, tree_node*, int, ...)
        ../../gcc/tree.c:11591
0x792bc9 gfc_conv_intrinsic_atan2d
        ../../gcc/fortran/trans-intrinsic.c:4728
0x792bc9 gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:10296
0x767aaa gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8878
0x76a973 gfc_conv_expr_val(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8931
0x77bbbc gfc_conv_intrinsic_function_args
        ../../gcc/fortran/trans-intrinsic.c:235
0x77c026 gfc_conv_intrinsic_conversion
        ../../gcc/fortran/trans-intrinsic.c:293
0x7930a5 gfc_conv_intrinsic_function(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-intrinsic.c:10338
0x767aaa gfc_conv_expr(gfc_se*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:8878
0x777601 gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:11167
0x739b67 trans_code
        ../../gcc/fortran/trans.c:1922
0x7602d4 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6880
0x6e6c26 translate_all_program_units
        ../../gcc/fortran/parse.c:6351
0x6e6c26 gfc_parse_file()
        ../../gcc/fortran/parse.c:6620
0x732e7f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:212

[Bug fortran/99061] [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org
   Last reconfirmed|                            |2021-02-10
           Priority|P3                          |P4
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |NEW

--- Comment #1 from kargl at gcc dot gnu.org ---
Patch tested with 

program p
   real(4)  :: z4, a4 = 1.0_4
   real(8)  :: z8, a8 = 1.0_8
   real(10) :: z0, a0 = 1.0_10
   real(16) :: z6, a6 = 1.0_16
   z4 = atan2d(a4, a4)
   z8 = atan2d(a8, a8)
   z0 = atan2d(a0, a0)
   z6 = atan2d(a6, a6)
   print *, z4
   print *, z8
   print *, z0
   print *, z6
end

Patch has not been regression tested.

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 5c9258c65c3..0cf0aa56811 100644
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -4717,6 +4717,7 @@ gfc_conv_intrinsic_cotand (gfc_se *se, gfc_expr *expr)
 static void
 gfc_conv_intrinsic_atan2d (gfc_se *se, gfc_expr *expr)
 {
+  gfc_intrinsic_map_t *m;
   tree args[2];
   tree atan2d;
   tree type;
@@ -4724,7 +4725,13 @@ gfc_conv_intrinsic_atan2d (gfc_se *se, gfc_expr *expr)
   gfc_conv_intrinsic_function_args (se, expr, args, 2);
   type = TREE_TYPE (args[0]);

-  atan2d = gfc_builtin_decl_for_float_kind (BUILT_IN_ATAN2, expr->ts.kind);
+  /* Find tan builtin function.  */
+  m = gfc_intrinsic_map;
+  for (; m->id != GFC_ISYM_NONE || m->double_built_in != END_BUILTINS; m++)
+    if (GFC_ISYM_ATAN2 == m->id)
+      break;
+
+  atan2d = gfc_get_intrinsic_lib_fndecl (m, expr);
   atan2d = build_call_expr_loc (input_location, atan2d, 2, args[0], args[1]);

   se->expr = fold_build2_loc (input_location, MULT_EXPR, type, atan2d,

[Bug fortran/99061] [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[sgk at troutmask dot apl.washington.edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

--- Comment #2 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Wed, Feb 10, 2021 at 06:03:56PM +0000, kargl at gcc dot gnu.org wrote:
> diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
> index 5c9258c65c3..0cf0aa56811 100644
> --- a/gcc/fortran/trans-intrinsic.c
> +++ b/gcc/fortran/trans-intrinsic.c
> @@ -4717,6 +4717,7 @@ gfc_conv_intrinsic_cotand (gfc_se *se, gfc_expr *expr)
>  static void
>  gfc_conv_intrinsic_atan2d (gfc_se *se, gfc_expr *expr)
>  {
> +  gfc_intrinsic_map_t *m;
>    tree args[2];
>    tree atan2d;
>    tree type;
> @@ -4724,7 +4725,13 @@ gfc_conv_intrinsic_atan2d (gfc_se *se, gfc_expr *expr)
>    gfc_conv_intrinsic_function_args (se, expr, args, 2);
>    type = TREE_TYPE (args[0]);
> 
> -  atan2d = gfc_builtin_decl_for_float_kind (BUILT_IN_ATAN2, expr->ts.kind);
> +  /* Find tan builtin function.  */

I suppose whomever commits the patch will fix the comment.

> +  m = gfc_intrinsic_map;
> +  for (; m->id != GFC_ISYM_NONE || m->double_built_in != END_BUILTINS; m++)
> +    if (GFC_ISYM_ATAN2 == m->id)
> +      break;
> +
> +  atan2d = gfc_get_intrinsic_lib_fndecl (m, expr);
>    atan2d = build_call_expr_loc (input_location, atan2d, 2, args[0], args[1]);
> 
>    se->expr = fold_build2_loc (input_location, MULT_EXPR, type, atan2d,

[Bug fortran/99061] [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[marxin at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

Martin Liška <marxin at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |foreese at gcc dot gnu.org,
                   |                            |marxin at gcc dot gnu.org

--- Comment #3 from Martin Liška <marxin at gcc dot gnu.org> ---
Just for the record, started with r10-7603-g57391ddaf39f7cb8.

[Bug fortran/99061] [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[rguenth at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |10.3

[Bug fortran/99061] [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[sgk at troutmask dot apl.washington.edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

--- Comment #4 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
Neither Gerhard's original code nor my patch fixed other ICEs.
Here's a test program for x86 systems.

program p

   implicit none

   real(4)  :: a1, e1 = 1.e-6
   real(8)  :: b1, e2 = 1.e-10
   real(10) :: c1, e3 = 1.e-10
   real(16) :: d1, e4 = 1.e-16

   a1 = 1; a1 = atand(a1)
   b1 = 1; b1 = atand(b1)
   c1 = 1; c1 = atand(c1)
   d1 = 1; d1 = atand(d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 45) > e1) stop 1
   if (abs(b1 - 45) > e2) stop 2
   if (abs(c1 - 45) > e3) stop 3
   if (abs(d1 - 45) > e4) stop 4

   a1 = 1._4 / 2; a1 = asind(a1)
   b1 = 1._8 / 2; b1 = asind(b1)
   c1 = 1._10/ 2; c1 = asind(c1)
   d1 = 1._16/ 2; d1 = asind(d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 30) > e1) stop 5
   if (abs(b1 - 30) > e2) stop 6
   if (abs(c1 - 30) > e3) stop 7
   if (abs(d1 - 30) > e4) stop 8

   a1 = 1._4 / 2; a1 = acosd(a1)
   b1 = 1._8 / 2; b1 = acosd(b1)
   c1 = 1._10/ 2; c1 = acosd(c1)
   d1 = 1._16/ 2; d1 = acosd(d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 60) > e1) stop 9
   if (abs(b1 - 60) > e2) stop 10
   if (abs(c1 - 60) > e3) stop 11
   if (abs(d1 - 60) > e4) stop 12

   a1 = 45; a1 = tand(a1)
   b1 = 45; b1 = tand(b1)
   c1 = 45; c1 = tand(c1)
   d1 = 45; d1 = tand(d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 1) > e1) stop 13
   if (abs(b1 - 1) > e2) stop 14
   if (abs(c1 - 1) > e3) stop 15
   if (abs(d1 - 1) > e4) stop 16

   a1 = 45; a1 = cotand(a1)
   b1 = 45; b1 = cotand(b1)
   c1 = 45; c1 = cotand(c1)
   d1 = 45; d1 = cotand(d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 1) > e1) stop 17
   if (abs(b1 - 1) > e2) stop 18
   if (abs(c1 - 1) > e3) stop 19
   if (abs(d1 - 1) > e4) stop 20

   a1 = 1; a1 = atan2d(a1, a1)
   b1 = 1; b1 = atan2d(b1, b1)
   c1 = 1; c1 = atan2d(c1, c1)
   d1 = 1; d1 = atan2d(d1, d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 45) > e1) stop 21
   if (abs(b1 - 45) > e2) stop 22
   if (abs(c1 - 45) > e3) stop 23
   if (abs(d1 - 45) > e4) stop 24

   a1 = 30; a1 = sind(a1)
   b1 = 30; b1 = sind(b1)
   c1 = 30; c1 = sind(c1)
   d1 = 30; d1 = sind(d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 0.5) > e1) stop 25
   if (abs(b1 - 0.5) > e2) stop 26
   if (abs(c1 - 0.5) > e3) stop 27
   if (abs(d1 - 0.5) > e4) stop 28

   a1 = 60; a1 = cosd(a1)
   b1 = 60; b1 = cosd(b1)
   c1 = 60; c1 = cosd(c1)
   d1 = 60; d1 = cosd(d1)
   print '(4(F15.11))', a1, b1, c1, d1
   if (abs(a1 - 0.5) > e1) stop 25
   if (abs(b1 - 0.5) > e2) stop 26
   if (abs(c1 - 0.5) > e3) stop 27
   if (abs(d1 - 0.5) > e4) stop 28

end program p

Here's the patch.


diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 5c9258c65c3..06d06bdc435 100644
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -189,6 +189,19 @@ gfc_builtin_decl_for_float_kind (enum built_in_function
double_built_in,
 }


+static gfc_intrinsic_map_t *
+search_for_intrinsic_fcn (enum gfc_isym_id id)
+{
+  gfc_intrinsic_map_t *m;
+
+  m = gfc_intrinsic_map;
+  for (; m->id != GFC_ISYM_NONE || m->double_built_in != END_BUILTINS; m++)
+    if (id == m->id)
+      break;
+
+  return m;
+}
+
 /* Evaluate the arguments to an intrinsic function.  The value
    of NARGS may be less than the actual number of arguments in EXPR
    to allow optional "KIND" arguments that are not included in the
@@ -4587,6 +4600,7 @@ rad2deg (int kind)
 static void
 gfc_conv_intrinsic_atrigd (gfc_se * se, gfc_expr * expr, gfc_isym_id id)
 {
+  gfc_isym_id jd;
   tree arg;
   tree atrigd;
   tree type;
@@ -4595,15 +4609,10 @@ gfc_conv_intrinsic_atrigd (gfc_se * se, gfc_expr *
expr, gfc_isym_id id)

   gfc_conv_intrinsic_function_args (se, expr, &arg, 1);

-  if (id == GFC_ISYM_ACOSD)
-    atrigd = gfc_builtin_decl_for_float_kind (BUILT_IN_ACOS, expr->ts.kind);
-  else if (id == GFC_ISYM_ASIND)
-    atrigd = gfc_builtin_decl_for_float_kind (BUILT_IN_ASIN, expr->ts.kind);
-  else if (id == GFC_ISYM_ATAND)
-    atrigd = gfc_builtin_decl_for_float_kind (BUILT_IN_ATAN, expr->ts.kind);
-  else
-    gcc_unreachable ();
-
+  if (id == GFC_ISYM_ATAND) jd = GFC_ISYM_ATAN;
+  if (id == GFC_ISYM_ACOSD) jd = GFC_ISYM_ACOS;
+  if (id == GFC_ISYM_ASIND) jd = GFC_ISYM_ASIN;
+  atrigd = gfc_get_intrinsic_lib_fndecl (search_for_intrinsic_fcn (jd), expr);
   atrigd = build_call_expr_loc (input_location, atrigd, 1, arg);

   se->expr = fold_build2_loc (input_location, MULT_EXPR, type, atrigd,
@@ -4617,13 +4626,13 @@ gfc_conv_intrinsic_atrigd (gfc_se * se, gfc_expr *
expr, gfc_isym_id id)
 static void
 gfc_conv_intrinsic_cotan (gfc_se *se, gfc_expr *expr)
 {
-  gfc_intrinsic_map_t *m;
   tree arg;
   tree type;

   type = gfc_typenode_for_spec (&expr->ts);
   gfc_conv_intrinsic_function_args (se, expr, &arg, 1);

+#define GILF gfc_get_intrinsic_lib_fndecl
   if (expr->ts.type == BT_REAL)
     {
       tree tan;
@@ -4638,14 +4647,8 @@ gfc_conv_intrinsic_cotan (gfc_se *se, gfc_expr *expr)
       tmp = gfc_conv_mpfr_to_tree (pio2, expr->ts.kind, 0);
       mpfr_clear (pio2);

-      /* Find tan builtin function.  */
-      m = gfc_intrinsic_map;
-      for (; m->id != GFC_ISYM_NONE || m->double_built_in != END_BUILTINS;
m++)
-       if (GFC_ISYM_TAN == m->id)
-         break;
-
       tmp = fold_build2_loc (input_location, PLUS_EXPR, type, arg, tmp);
-      tan = gfc_get_intrinsic_lib_fndecl (m, expr);
+      tan = GILF (search_for_intrinsic_fcn (GFC_ISYM_TAN), expr);
       tan = build_call_expr_loc (input_location, tan, 1, tmp);
       se->expr = fold_build1_loc (input_location, NEGATE_EXPR, type, tan);
     }
@@ -4654,27 +4657,15 @@ gfc_conv_intrinsic_cotan (gfc_se *se, gfc_expr *expr)
       tree sin;
       tree cos;

-      /* Find cos builtin function.  */
-      m = gfc_intrinsic_map;
-      for (; m->id != GFC_ISYM_NONE || m->double_built_in != END_BUILTINS;
m++)
-       if (GFC_ISYM_COS == m->id)
-         break;
-
-      cos = gfc_get_intrinsic_lib_fndecl (m, expr);
+      cos = GILF (search_for_intrinsic_fcn (GFC_ISYM_COS), expr);
       cos = build_call_expr_loc (input_location, cos, 1, arg);

-      /* Find sin builtin function.  */
-      m = gfc_intrinsic_map;
-      for (; m->id != GFC_ISYM_NONE || m->double_built_in != END_BUILTINS;
m++)
-       if (GFC_ISYM_SIN == m->id)
-         break;
-
-      sin = gfc_get_intrinsic_lib_fndecl (m, expr);
+      sin = GILF (search_for_intrinsic_fcn (GFC_ISYM_SIN), expr);
       sin = build_call_expr_loc (input_location, sin, 1, arg);

-      /* Divide cos by sin. */
       se->expr = fold_build2_loc (input_location, RDIV_EXPR, type, cos, sin);
    }
+#undef GILF
 }


@@ -4699,13 +4690,9 @@ gfc_conv_intrinsic_cotand (gfc_se *se, gfc_expr *expr)
   arg = fold_build2_loc (input_location, PLUS_EXPR, type, arg, ninety_tree);
   mpfr_clear (ninety);

-  /* Find tand.  */
-  gfc_intrinsic_map_t *m = gfc_intrinsic_map;
-  for (; m->id != GFC_ISYM_NONE || m->double_built_in != END_BUILTINS; m++)
-    if (GFC_ISYM_TAND == m->id)
-      break;
-
-  tree tand = gfc_get_intrinsic_lib_fndecl (m, expr);
+#define GILF gfc_get_intrinsic_lib_fndecl
+  tree tand = GILF (search_for_intrinsic_fcn (GFC_ISYM_TAND), expr);
+#undef GILF
   tand = build_call_expr_loc (input_location, tand, 1, arg);

   se->expr = fold_build1_loc (input_location, NEGATE_EXPR, type, tand);
@@ -4724,7 +4711,9 @@ gfc_conv_intrinsic_atan2d (gfc_se *se, gfc_expr *expr)
   gfc_conv_intrinsic_function_args (se, expr, args, 2);
   type = TREE_TYPE (args[0]);

-  atan2d = gfc_builtin_decl_for_float_kind (BUILT_IN_ATAN2, expr->ts.kind);
+#define GILF gfc_get_intrinsic_lib_fndecl
+  atan2d = GILF (search_for_intrinsic_fcn (GFC_ISYM_ATAN2), expr);
+#undef GILF
   atan2d = build_call_expr_loc (input_location, atan2d, 2, args[0], args[1]);

   se->expr = fold_build2_loc (input_location, MULT_EXPR, type, atan2d,

[Bug fortran/99061] [10/11 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[rguenth at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|10.3                        |10.4

--- Comment #5 from Richard Biener <rguenth at gcc dot gnu.org> ---
GCC 10.3 is being released, retargeting bugs to GCC 10.4.

[Bug fortran/99061] [10/11/12 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Assignee|unassigned at gcc dot gnu.org      |anlauf at gcc dot gnu.org
                 CC|                            |anlauf at gcc dot gnu.org
             Status|NEW                         |ASSIGNED

--- Comment #6 from anlauf at gcc dot gnu.org ---
Packaged: https://gcc.gnu.org/pipermail/fortran/2021-November/057021.html

[Bug fortran/99061] [10/11/12 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

--- Comment #7 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Harald Anlauf <anlauf@gcc.gnu.org>:

https://gcc.gnu.org/g:8fef6f720a5a0a056abfa986ba870bb406ab4716

commit r12-5440-g8fef6f720a5a0a056abfa986ba870bb406ab4716
Author: Harald Anlauf <anlauf@gmx.de>
Date:   Sun Nov 21 19:29:27 2021 +0100

    Fortran: fix lookup for gfortran builtin math intrinsics used by DEC
extensions

    gcc/fortran/ChangeLog:

            PR fortran/99061
            * trans-intrinsic.c (gfc_lookup_intrinsic): Helper function for
            looking up gfortran builtin intrinsics.
            (gfc_conv_intrinsic_atrigd): Use it.
            (gfc_conv_intrinsic_cotan): Likewise.
            (gfc_conv_intrinsic_cotand): Likewise.
            (gfc_conv_intrinsic_atan2d): Likewise.

    gcc/testsuite/ChangeLog:

            PR fortran/99061
            * gfortran.dg/dec_math_5.f90: New test.

    Co-authored-by: Steven G. Kargl <kargl@gcc.gnu.org>

[Bug fortran/99061] [10/11/12 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

--- Comment #8 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-11 branch has been updated by Harald Anlauf
<anlauf@gcc.gnu.org>:

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

commit r11-9263-gc224f21418e105e5dbbcec98018d9329970afd84
Author: Harald Anlauf <anlauf@gmx.de>
Date:   Sun Nov 21 19:29:27 2021 +0100

    Fortran: fix lookup for gfortran builtin math intrinsics used by DEC
extensions

    gcc/fortran/ChangeLog:

            PR fortran/99061
            * trans-intrinsic.c (gfc_lookup_intrinsic): Helper function for
            looking up gfortran builtin intrinsics.
            (gfc_conv_intrinsic_atrigd): Use it.
            (gfc_conv_intrinsic_cotan): Likewise.
            (gfc_conv_intrinsic_cotand): Likewise.
            (gfc_conv_intrinsic_atan2d): Likewise.

    gcc/testsuite/ChangeLog:

            PR fortran/99061
            * gfortran.dg/dec_math_5.f90: New test.

    Co-authored-by: Steven G. Kargl <kargl@gcc.gnu.org>
    (cherry picked from commit 8fef6f720a5a0a056abfa986ba870bb406ab4716)

[Bug fortran/99061] [10/11/12 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

--- Comment #9 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-10 branch has been updated by Harald Anlauf
<anlauf@gcc.gnu.org>:

https://gcc.gnu.org/g:3eeda9a3b5e932bad28ca870077185ced67eb27e

commit r10-10287-g3eeda9a3b5e932bad28ca870077185ced67eb27e
Author: Harald Anlauf <anlauf@gmx.de>
Date:   Sun Nov 21 19:29:27 2021 +0100

    Fortran: fix lookup for gfortran builtin math intrinsics used by DEC
extensions

    gcc/fortran/ChangeLog:

            PR fortran/99061
            * trans-intrinsic.c (gfc_lookup_intrinsic): Helper function for
            looking up gfortran builtin intrinsics.
            (gfc_conv_intrinsic_atrigd): Use it.
            (gfc_conv_intrinsic_cotan): Likewise.
            (gfc_conv_intrinsic_cotand): Likewise.
            (gfc_conv_intrinsic_atan2d): Likewise.

    gcc/testsuite/ChangeLog:

            PR fortran/99061
            * gfortran.dg/dec_math_5.f90: New test.

    Co-authored-by: Steven G. Kargl <kargl@gcc.gnu.org>
    (cherry picked from commit 8fef6f720a5a0a056abfa986ba870bb406ab4716)

[Bug fortran/99061] [10/11/12 Regression] ICE in gfc_conv_intrinsic_atan2d, at fortran/trans-intrinsic.c:4728

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99061

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |FIXED
             Status|ASSIGNED                    |RESOLVED

--- Comment #10 from anlauf at gcc dot gnu.org ---
Fixed for gcc-12, and on 11- and 10-branch.  Closing.

Thanks for the report!