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