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