gcc/testsuite/gfortran.dg/char_result_17.f90

   1 ! { dg-do run }
   2 ! PR fortran/84615
   3 ! Charlen should always be the ABI defined character length type
   4 ! regardless of which kind it is declared as in the source.
   5 program TestStringTools
   6   character(len=52)               :: txt
   7   character(len=1), dimension(52) :: chararr = &
   8        (/(char(i+64),char(i+96), i = 1,26)/)
   9   txt = chararray2string(chararr)
  10   if (txt .ne. "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz") &
  11        STOP 1
  12 contains
  13   function chararray2string(chararray) result(text)
  14     character(len=1), dimension(:) :: chararray    ! input
  15     character(len=int(size(chararray, 1), kind=8)) :: text      ! output
  16     do i = 1,size(chararray,1)
  17        text(i:i) = chararray (i)
  18     end do
  19   end function chararray2string
  20 end program TestStringTools