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

Reply via email to