26 lines
515 B
Fortran
26 lines
515 B
Fortran
! { 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
|