[gfortran] Fix PR 24643

[Steven Bosscher]

On Wednesday 09 November 2005 00:57, Tobias Schlüter wrote:
> 2005-11-09  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
>
> 	PR fortran/24643
> 	* primary.c (match_varspec): Check for implicitly typed CHARACTER
> 	variables before matching substrings.
>
> testsuite:
> 	* gfortran.dg/implicit_6.f90, gfortran.dg/implicit_7.f90: New.
>

> ===================================================================
> --- testsuite/gfortran.dg/implicit_6.f90        (revision 0)
> +++ testsuite/gfortran.dg/implicit_6.f90        (revision 0)
> @@ -0,0 +1,8 @@
> +! { dg-do compile }
> +! PR 24643
> +! substring references on implicitly typed CHARACTER variables didn't work
> +        PROGRAM P
> +        IMPLICIT CHARACTER*8 (Y)
> +        YLOCAL='A'
> +        YBTABLE=YLOCAL(1:2)
> +        END


I would like to know why we don't set the type on YLOCAL when we
parse the first assignment, i.e. "YLOCAL='A'".  I would expect
that we figure out there that we have a symbol on the lhs that
can't be anything else but a variable, but without a type.  So we
should give it its implicit type there, shouldn't we?

Gr.
Steven