| ! { dg-do run } | |
| ! | |
| ! Test the fix for PR86372 in which the associate name string length was | |
| ! not being set, thereby causing a segfault. | |
| ! | |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
| ! | |
| program xxx | |
| character(len=50) :: s | |
| s = repeat ('*', len(s)) | |
| call sub(s) | |
| if (s .ne. '**'//'123'//repeat ('*', len(s) - 5)) stop 1 | |
| contains | |
| subroutine sub(str) | |
| character(len=*), intent(inout) :: str | |
| associate (substr => str(3:5)) | |
| substr = '123' | |
| end associate | |
| end subroutine | |
| end |