https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77603
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@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
