blob: 9177582a5fcbce85f305b811d5fa000047bf2844 [file] [log] [blame]
! { 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