| ! { dg-do compile } | |
| ! { dg-additional-options "-Wall -O3" } | |
| ! PR 79929 - this used to give a warning. | |
| ! Test case by Harald Anlauf. | |
| subroutine gfcbug138 (yerrmsg) | |
| character(*) :: yerrmsg | |
| yerrmsg = "" | |
| yerrmsg = "bug: " // yerrmsg | |
| end subroutine gfcbug138 |