[Bug fortran/77603] ICE: Segmentation fault (program f951)

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Still invalid with -fimplicit-none (or at source level), 
but done in no time (in contrast to pr77602) :


$ time gfortran-7-20160911 -fimplicit-none -c z1.f90
z1.f90:4:29:

       implicit character(len(zfn)) (x)
                             1
Error: Symbol 'zfn' is used before it is typed at (1)
z1.f90:5:29:

       implicit character(len(x)+1) (y)
                             1
Error: Symbol 'x' is used before it is typed at (1)
z1.f90:6:29:

       implicit character(len(y)-1) (z)
                             1
Error: Symbol 'y' is used before it is typed at (1)
z1.f90:8:20:

       character(len(y)-1) :: zfn
                    1
Error: Symbol 'y' is used before it is typed at (1)
z1.f90:10:32:

       zfn = achar(max(iachar(x(i:i)),iachar(y(i:i))))
                                1
Error: Syntax error in argument list at (1)
z1.f90:3:17:

    function zfn(x,y)
                 1
Error: Symbol 'x' at (1) has no IMPLICIT type
z1.f90:3:19:

    function zfn(x,y)
                   1
Error: Symbol 'y' at (1) has no IMPLICIT type
z1.f90:3:3:

    function zfn(x,y)
   1
Error: Contained function 'zfn' at (1) has no IMPLICIT type

real    0m0.013s
user    0m0.006s
sys     0m0.005s