1! { dg-do compile }
2! { dg-additional-options "-Wall -O3" }
3! PR 79929 - this used to give a warning.
4! Test case by Harald Anlauf.
5subroutine gfcbug138 (yerrmsg)
6  character(*) :: yerrmsg
7  yerrmsg = ""
8  yerrmsg = "bug: " // yerrmsg
9end subroutine gfcbug138
10