https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79929
--- Comment #24 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- The following variant does not give the warning subroutine gfcbug138 (yerrmsg) character(kind=1,len=*) :: yerrmsg character(kind=1,len=len(yerrmsg)+5) :: tmp tmp = 1_"bug: " // yerrmsg yerrmsg = tmp end subroutine gfcbug138