1! { dg-do run } 2! 3! Test the fix for PR86372 in which the associate name string length was 4! not being set, thereby causing a segfault. 5! 6! Contributed by Janus Weil <janus@gcc.gnu.org> 7! 8program xxx 9 10 character(len=50) :: s 11 12 s = repeat ('*', len(s)) 13 call sub(s) 14 if (s .ne. '**'//'123'//repeat ('*', len(s) - 5)) stop 1 15 16contains 17 18 subroutine sub(str) 19 character(len=*), intent(inout) :: str 20 associate (substr => str(3:5)) 21 substr = '123' 22 end associate 23 end subroutine 24 25end 26