[Bug fortran/64124] [F95] Valid constant expr rejected

[dominiq at lps dot ens.fr]

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

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
I see the error from 4.4.7 up to trunk (5.0 r218188). The error  goes away if I
replace

  character(len=kind(1)) x

with

  character(len=kind(1)), parameter :: x='abcd'

and gfortran compiles the following code

  character(len=kind(1)) x
  integer y(len(x),len(x))
  print *, shape(y)
  end