text: Program test_to_str
  
      Use Kinds, Only: sp,dp
  #   if EXTP
      Use Kinds, Only: qp
  #   endif
      Use Kinds, Only: is,id,il
      Use FileIO_Utilities, Only: to_str
      Implicit None
      Real(sp) :: rs
      Real(dp) :: rd
  #   if EXTP
      Real(qp) :: rq
  #   endif
      Integer(is) :: js
      Integer(il) :: jl
      Integer(id) :: jd
  
      Write(*,'(A)') 'SP:'
      Write(*,'(A)') to_str(0._sp)
      Write(*,'(A)') to_str(TINY(rs))
      Write(*,'(A)') to_str(HUGE(rs))
  
      Write(*,'(A)') 'DP:'
      Write(*,'(A)') to_str(0._dp)
      Write(*,'(A)') to_str(TINY(rd))
      Write(*,'(A)') to_str(HUGE(rd))
  
  #   if EXTP
      Write(*,'(A)') 'QP:'
      Write(*,'(A)') to_str(0._qp)
      Write(*,'(A)') to_str(TINY(rq))
      Write(*,'(A)') to_str(HUGE(rq))
  #   endif
  
      Write(*,'(A)') 'I2:'
      Write(*,'(A)') to_str(0_is)
      Write(*,'(A)') to_str(-HUGE(js))
      Write(*,'(A)') to_str(HUGE(js))
  
      Write(*,'(A)') 'I4:'
      Write(*,'(A)') to_str(0_il)
      Write(*,'(A)') to_str(-HUGE(jl))
      Write(*,'(A)') to_str(HUGE(jl))
  
      Write(*,'(A)') 'I8:'
      Write(*,'(A)') to_str(0_id)
      Write(*,'(A)') to_str(-HUGE(jd))
      Write(*,'(A)') to_str(HUGE(jd))
  
  End Program