[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 #7 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Mark Eggleston
<markeggles...@gcc.gnu.org>:

https://gcc.gnu.org/g:2c54eab5a302c6da015bb39b1a81f6799e45a650

commit r10-7508-g2c54eab5a302c6da015bb39b1a81f6799e45a650
Author: Mark Eggleston <markeggles...@gcc.gnu.org>
Date:   Thu Apr 2 07:31:12 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:

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

    gcc/testsuite/ChangeLog:

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