[Bug fortran/97272] Wrong answer from MAXLOC with character arg

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #2 from anlauf at gcc dot gnu.org ---
Untested fix:

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 3b3bd8629cd..9e9898c2bbf 100644
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -5211,7 +5211,9 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr *
expr, enum tree_code op)
       while (a->next)
        {
          b = a->next;
-         if (b->expr == NULL || strcmp (b->name, "dim") == 0)
+         if (b->expr == NULL
+             || strcmp (b->name, "dim") == 0
+             || strcmp (b->name, "kind") == 0)
            {
              a->next = b->next;
              b->next = NULL;