to_string_1_i_int32 Module Function

   pure module function to_string_1_i_int32(value) result(string)
      integer, parameter :: ik = int32
      integer(ik), intent(in) :: value
      character(len=:), allocatable :: string
      integer, parameter :: buffer_len = range(value) + 2
      character(len=buffer_len) :: buffer
      integer :: pos
      integer(ik) :: n
      character(len=1), parameter :: numbers(-9:0) = &
                                     ["9", "8", "7", "6", "5", "4", "3", "2", "1", "0"]

      if (value == 0_ik) then
         string = numbers(0)
         return
      end if

      n = sign(value, -1_ik)
      buffer = ""
      pos = buffer_len + 1
      do while (n < 0_ik)
         pos = pos - 1
         buffer(pos:pos) = numbers(mod(n, 10_ik))
         n = n/10_ik
      end do

      if (value < 0_ik) then
         pos = pos - 1
         buffer(pos:pos) = '-'
      end if

      string = buffer(pos:)
   end function to_string_1_i_int32