[Bug fortran/84615] [8 Regression] Executable Segfault for some tests compiled with -m32 after r256284

[jb at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84615

--- Comment #11 from Janne Blomqvist <jb at gcc dot gnu.org> ---
Yes, makes sense. And the same happens if one uses an external function with a
hand-rolled interface declaration:

function chararray2string(chararray) result(text)
  character(len=1), dimension(:) :: chararray    ! input
  character(len=int(size(chararray, 1), kind=8)) :: text      ! output
  print *, ">", chararray, "<"
  do i = 1,size(chararray,1)
     text(i:i) = chararray (i)
  end do
  print *, ">", text, "<"
end function chararray2string

program TestStringTools
  interface
     function chararray2string(chararray) result(text)
       character(len=1), dimension(:) :: chararray    ! input
       character(len=int(size(chararray, 1), kind=8)) :: text      ! output
     end function chararray2string
  end interface
  character(len=52)               :: txt
  character(len=1), dimension(52) :: chararr = &
       (/(char(i+64),char(i+96), i = 1,26)/)
  print *, ">", chararr, "<"
  txt = chararray2string(chararr)
  if (txt .ne. "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz") &
       STOP 1
end program TestStringTools