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

[cvs-commit at gcc dot gnu.org]

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

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

https://gcc.gnu.org/g:83967508034454425dfce7fe0ea33a153c34e7cb

commit r9-8985-g83967508034454425dfce7fe0ea33a153c34e7cb
Author: Harald Anlauf <anlauf@gmx.de>
Date:   Sun Oct 4 20:24:29 2020 +0200

    PR fortran/97272 - Wrong answer from MAXLOC with character arg

    The optional KIND argument to the MINLOC/MAXLOC intrinsic must not be
    passed to the library function, as the kind conversion of the result
    is treated explicitly elsewhere.

    gcc/fortran/ChangeLog:

            PR fortran/97272
            * trans-intrinsic.c (strip_kind_from_actual): Helper function for
            removal of KIND argument.
            (gfc_conv_intrinsic_minmaxloc): Ignore KIND argument here, as it
            is treated elsewhere.

    gcc/testsuite/ChangeLog:

            PR fortran/97272
            * gfortran.dg/pr97272.f90: New test.

    (cherry picked from commit 35d2c6b6e8a7448a84abbf967feeb78a29117014)