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

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

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

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

https://gcc.gnu.org/g:35d2c6b6e8a7448a84abbf967feeb78a29117014

commit r11-3646-g35d2c6b6e8a7448a84abbf967feeb78a29117014
Author: Harald Anlauf <anl...@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.