Re: [9/10 Regression, PATCH] fortran: ICE in gfc_validate_kind(): Got bad kind [PR93580]

[Steve Kargl]

On Tue, Feb 11, 2020 at 02:41:26PM +0000, Mark Eggleston wrote:
> Please find attached a patch, it is based on Steve Kargl's patch in PR93580
> adding  a check for %len and test case.
> 

Looks like the wrong diff was attached.

>  gcc/fortran/match.c                     | 4 ++--
>  gcc/testsuite/gfortran.dg/pr93484_1.f90 | 8 ++++++++
>  gcc/testsuite/gfortran.dg/pr93484_2.f90 | 8 ++++++++
>  3 files changed, 18 insertions(+), 2 deletions(-)
>  create mode 100644 gcc/testsuite/gfortran.dg/pr93484_1.f90
>  create mode 100644 gcc/testsuite/gfortran.dg/pr93484_2.f90
> 
> diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
> index a74cb8c5c19..03adfca9bd9 100644
> --- a/gcc/fortran/match.c
> +++ b/gcc/fortran/match.c
> @@ -2222,9 +2222,9 @@ gfc_match_type_spec (gfc_typespec *ts)
>  
>  found:
>  
> -      m = gfc_match_init_expr (&e);
> +      m = gfc_match_expr (&e);
>        if (m == MATCH_NO || m == MATCH_ERROR)
> -     return MATCH_NO;
> +     return m;

-- 
steve