[Bug fortran/93835] [9/10 Regression] ICE in simplify_findloc_nodim, at fortran/simplify.c:5513

[cvs-commit at gcc dot gnu.org]

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

--- Comment #5 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Mark Eggleston
<markeggleston@gcc.gnu.org>:

https://gcc.gnu.org/g:27bf39a8035445ffc71b551619d7c1a232498054

commit r10-6821-g27bf39a8035445ffc71b551619d7c1a232498054
Author: Mark Eggleston <markeggleston@gcc.gnu.org>
Date:   Mon Feb 24 15:40:03 2020 +0000

    ortran: ICE using SHAPE with FINDLOC PR93835

    The expression representing the array returned by SHAPE does not
    have its shape defined. An ICE occurs when FINDLOC attempts to
    use the shape of the array.  Add shape to expression before returning
    from SHAPE.

    Whitespace issues identified by Steven G. Kargl  <kargl@gcc.gnu.org>
    have also been fixed.

    gcc/fortran/ChangeLog

        PR fortran/93835
        * simplify.c (simplify_findloc_nodim) : Fix whitespace issues.
        (gfc_simplify_shape) : Create and initialise one shape value
        for the result expression. Set shape value with the rank of
        the source array.

    gcc/testsuite/ChangeLog

        PR fortran/93835
        * gfortran.dg/pr77351.f90 : Check for one error instead of two.
        * gfortran.dg/pr93835.f08 : New test.