[Bug fortran/93498] [9/10 Regression] ICE in gfc_resolve_findloc, at fortran/iresolve.c:1844 since r9-3688-g01ce9e31a02c8039

[cvs-commit at gcc dot gnu.org]

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

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

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

commit r9-8441-gb6e546912555c9b9b27bdce516e98546f4cd3d25
Author: Mark Eggleston <markeggles...@gcc.gnu.org>
Date:   Thu Apr 2 08:42:41 2020 +0100

    fortran : ICE in gfc_resolve_findloc PR93498

    ICE occurs when findloc is used with character arguments of different
    kinds.  If the character kinds are different reject the code.

    Original patch provided by Steven G. Kargl  <ka...@gcc.gnu.org>.

    gcc/fortran/ChangeLog:

            Backport from master
            Steven G. Kargl  <ka...@gcc.gnu.org>

            PR fortran/93498
            * check.c (gfc_check_findloc):  If the kinds of the arguments
            differ goto label "incompat".

    gcc/testsuite/ChangeLog:

            Backport from master
            2020-04-02  Mark Eggleston <markeggles...@gcc.gnu.org>

            PR fortran/93498
            * gfortran.dg/pr93498_1.f90:  New test.
            * gfortran.dg/pr93498_2.f90:  New test.