Fortran: speed up decimal output of integers

libgfortran/ChangeLog:

	PR libfortran/98076
	* runtime/string.c (itoa64, itoa64_pad19): New helper functions.
	(gfc_itoa): On targets with 128-bit integers, call fast
	64-bit functions to avoid many slow divisions.

gcc/testsuite/ChangeLog:

	PR libfortran/98076
	* gfortran.dg/pr98076.f90: New test.

1 files changed, 293 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/pr98076.f90 b/gcc/testsuite/gfortran.dg/pr98076.f90
new file mode 100644
index 0000000..d1288a4
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr98076.f90
@@ -0,0 +1,293 @@
+! { dg-do run }
+! { dg-require-effective-target fortran_large_int }
+!
+! Check that we can print large integer values
+
+program test
+  implicit none
+  ! 128-bit integer kind
+  integer, parameter :: k = selected_int_kind(38)
+
+  character(len=39) :: s
+  character(len=100) :: buffer
+  integer(kind=k) :: n
+  integer :: i
+
+  ! Random checks
+  do i = 1, 1000
+    call random_digits(s)
+    read(s,*) n
+    write(buffer,'(I0.38)') n
+    print *, s
+    print *, buffer
+    if (adjustl(buffer) /= adjustl(s)) stop 2
+  end do
+
+  ! Systematic check
+  call check(0_k, "0")
+  call check(1_k, "1")
+  call check(9_k, "9")
+  call check(10_k, "10")
+  call check(11_k, "11")
+  call check(99_k, "99")
+  call check(100_k, "100")
+  call check(101_k, "101")
+  call check(999_k, "999")
+  call check(1000_k, "1000")
+  call check(1001_k, "1001")
+  call check(9999_k, "9999")
+  call check(10000_k, "10000")
+  call check(10001_k, "10001")
+  call check(99999_k, "99999")
+  call check(100000_k, "100000")
+  call check(100001_k, "100001")
+  call check(999999_k, "999999")
+  call check(1000000_k, "1000000")
+  call check(1000001_k, "1000001")
+  call check(9999999_k, "9999999")
+  call check(10000000_k, "10000000")
+  call check(10000001_k, "10000001")
+  call check(99999999_k, "99999999")
+  call check(100000000_k, "100000000")
+  call check(100000001_k, "100000001")
+  call check(999999999_k, "999999999")
+  call check(1000000000_k, "1000000000")
+  call check(1000000001_k, "1000000001")
+  call check(9999999999_k, "9999999999")
+  call check(10000000000_k, "10000000000")
+  call check(10000000001_k, "10000000001")
+  call check(99999999999_k, "99999999999")
+  call check(100000000000_k, "100000000000")
+  call check(100000000001_k, "100000000001")
+  call check(999999999999_k, "999999999999")
+  call check(1000000000000_k, "1000000000000")
+  call check(1000000000001_k, "1000000000001")
+  call check(9999999999999_k, "9999999999999")
+  call check(10000000000000_k, "10000000000000")
+  call check(10000000000001_k, "10000000000001")
+  call check(99999999999999_k, "99999999999999")
+  call check(100000000000000_k, "100000000000000")
+  call check(100000000000001_k, "100000000000001")
+  call check(999999999999999_k, "999999999999999")
+  call check(1000000000000000_k, "1000000000000000")
+  call check(1000000000000001_k, "1000000000000001")
+  call check(9999999999999999_k, "9999999999999999")
+  call check(10000000000000000_k, "10000000000000000")
+  call check(10000000000000001_k, "10000000000000001")
+  call check(99999999999999999_k, "99999999999999999")
+  call check(100000000000000000_k, "100000000000000000")
+  call check(100000000000000001_k, "100000000000000001")
+  call check(999999999999999999_k, "999999999999999999")
+  call check(1000000000000000000_k, "1000000000000000000")
+  call check(1000000000000000001_k, "1000000000000000001")
+  call check(9999999999999999999_k, "9999999999999999999")
+  call check(10000000000000000000_k, "10000000000000000000")
+  call check(10000000000000000001_k, "10000000000000000001")
+  call check(99999999999999999999_k, "99999999999999999999")
+  call check(100000000000000000000_k, "100000000000000000000")
+  call check(100000000000000000001_k, "100000000000000000001")
+  call check(999999999999999999999_k, "999999999999999999999")
+  call check(1000000000000000000000_k, "1000000000000000000000")
+  call check(1000000000000000000001_k, "1000000000000000000001")
+  call check(9999999999999999999999_k, "9999999999999999999999")
+  call check(10000000000000000000000_k, "10000000000000000000000")
+  call check(10000000000000000000001_k, "10000000000000000000001")
+  call check(99999999999999999999999_k, "99999999999999999999999")
+  call check(100000000000000000000000_k, "100000000000000000000000")
+  call check(100000000000000000000001_k, "100000000000000000000001")
+  call check(999999999999999999999999_k, "999999999999999999999999")
+  call check(1000000000000000000000000_k, "1000000000000000000000000")
+  call check(1000000000000000000000001_k, "1000000000000000000000001")
+  call check(9999999999999999999999999_k, "9999999999999999999999999")
+  call check(10000000000000000000000000_k, "10000000000000000000000000")
+  call check(10000000000000000000000001_k, "10000000000000000000000001")
+  call check(99999999999999999999999999_k, "99999999999999999999999999")
+  call check(100000000000000000000000000_k, "100000000000000000000000000")
+  call check(100000000000000000000000001_k, "100000000000000000000000001")
+  call check(999999999999999999999999999_k, "999999999999999999999999999")
+  call check(1000000000000000000000000000_k, "1000000000000000000000000000")
+  call check(1000000000000000000000000001_k, "1000000000000000000000000001")
+  call check(9999999999999999999999999999_k, "9999999999999999999999999999")
+  call check(10000000000000000000000000000_k, "10000000000000000000000000000")
+  call check(10000000000000000000000000001_k, "10000000000000000000000000001")
+  call check(99999999999999999999999999999_k, "99999999999999999999999999999")
+  call check(100000000000000000000000000000_k, "100000000000000000000000000000")
+  call check(100000000000000000000000000001_k, "100000000000000000000000000001")
+  call check(999999999999999999999999999999_k, "999999999999999999999999999999")
+  call check(1000000000000000000000000000000_k, "1000000000000000000000000000000")
+  call check(1000000000000000000000000000001_k, "1000000000000000000000000000001")
+  call check(9999999999999999999999999999999_k, "9999999999999999999999999999999")
+  call check(10000000000000000000000000000000_k, "10000000000000000000000000000000")
+  call check(10000000000000000000000000000001_k, "10000000000000000000000000000001")
+  call check(99999999999999999999999999999999_k, "99999999999999999999999999999999")
+  call check(100000000000000000000000000000000_k, "100000000000000000000000000000000")
+  call check(100000000000000000000000000000001_k, "100000000000000000000000000000001")
+  call check(999999999999999999999999999999999_k, "999999999999999999999999999999999")
+  call check(1000000000000000000000000000000000_k, "1000000000000000000000000000000000")
+  call check(1000000000000000000000000000000001_k, "1000000000000000000000000000000001")
+  call check(9999999999999999999999999999999999_k, "9999999999999999999999999999999999")
+  call check(10000000000000000000000000000000000_k, "10000000000000000000000000000000000")
+  call check(10000000000000000000000000000000001_k, "10000000000000000000000000000000001")
+  call check(99999999999999999999999999999999999_k, "99999999999999999999999999999999999")
+  call check(100000000000000000000000000000000000_k, "100000000000000000000000000000000000")
+  call check(100000000000000000000000000000000001_k, "100000000000000000000000000000000001")
+  call check(999999999999999999999999999999999999_k, "999999999999999999999999999999999999")
+  call check(1000000000000000000000000000000000000_k, "1000000000000000000000000000000000000")
+  call check(1000000000000000000000000000000000001_k, "1000000000000000000000000000000000001")
+  call check(9999999999999999999999999999999999999_k, "9999999999999999999999999999999999999")
+  call check(10000000000000000000000000000000000000_k, "10000000000000000000000000000000000000")
+  call check(10000000000000000000000000000000000001_k, "10000000000000000000000000000000000001")
+  call check(99999999999999999999999999999999999999_k, "99999999999999999999999999999999999999")
+  call check(100000000000000000000000000000000000000_k, "100000000000000000000000000000000000000")
+  call check(100000000000000000000000000000000000001_k, "100000000000000000000000000000000000001")
+  call check(109999999999999999999999999999999999999_k, "109999999999999999999999999999999999999")
+
+  call check(-1_k, "-1")
+  call check(-9_k, "-9")
+  call check(-10_k, "-10")
+  call check(-11_k, "-11")
+  call check(-99_k, "-99")
+  call check(-100_k, "-100")
+  call check(-101_k, "-101")
+  call check(-999_k, "-999")
+  call check(-1000_k, "-1000")
+  call check(-1001_k, "-1001")
+  call check(-9999_k, "-9999")
+  call check(-10000_k, "-10000")
+  call check(-10001_k, "-10001")
+  call check(-99999_k, "-99999")
+  call check(-100000_k, "-100000")
+  call check(-100001_k, "-100001")
+  call check(-999999_k, "-999999")
+  call check(-1000000_k, "-1000000")
+  call check(-1000001_k, "-1000001")
+  call check(-9999999_k, "-9999999")
+  call check(-10000000_k, "-10000000")
+  call check(-10000001_k, "-10000001")
+  call check(-99999999_k, "-99999999")
+  call check(-100000000_k, "-100000000")
+  call check(-100000001_k, "-100000001")
+  call check(-999999999_k, "-999999999")
+  call check(-1000000000_k, "-1000000000")
+  call check(-1000000001_k, "-1000000001")
+  call check(-9999999999_k, "-9999999999")
+  call check(-10000000000_k, "-10000000000")
+  call check(-10000000001_k, "-10000000001")
+  call check(-99999999999_k, "-99999999999")
+  call check(-100000000000_k, "-100000000000")
+  call check(-100000000001_k, "-100000000001")
+  call check(-999999999999_k, "-999999999999")
+  call check(-1000000000000_k, "-1000000000000")
+  call check(-1000000000001_k, "-1000000000001")
+  call check(-9999999999999_k, "-9999999999999")
+  call check(-10000000000000_k, "-10000000000000")
+  call check(-10000000000001_k, "-10000000000001")
+  call check(-99999999999999_k, "-99999999999999")
+  call check(-100000000000000_k, "-100000000000000")
+  call check(-100000000000001_k, "-100000000000001")
+  call check(-999999999999999_k, "-999999999999999")
+  call check(-1000000000000000_k, "-1000000000000000")
+  call check(-1000000000000001_k, "-1000000000000001")
+  call check(-9999999999999999_k, "-9999999999999999")
+  call check(-10000000000000000_k, "-10000000000000000")
+  call check(-10000000000000001_k, "-10000000000000001")
+  call check(-99999999999999999_k, "-99999999999999999")
+  call check(-100000000000000000_k, "-100000000000000000")
+  call check(-100000000000000001_k, "-100000000000000001")
+  call check(-999999999999999999_k, "-999999999999999999")
+  call check(-1000000000000000000_k, "-1000000000000000000")
+  call check(-1000000000000000001_k, "-1000000000000000001")
+  call check(-9999999999999999999_k, "-9999999999999999999")
+  call check(-10000000000000000000_k, "-10000000000000000000")
+  call check(-10000000000000000001_k, "-10000000000000000001")
+  call check(-99999999999999999999_k, "-99999999999999999999")
+  call check(-100000000000000000000_k, "-100000000000000000000")
+  call check(-100000000000000000001_k, "-100000000000000000001")
+  call check(-999999999999999999999_k, "-999999999999999999999")
+  call check(-1000000000000000000000_k, "-1000000000000000000000")
+  call check(-1000000000000000000001_k, "-1000000000000000000001")
+  call check(-9999999999999999999999_k, "-9999999999999999999999")
+  call check(-10000000000000000000000_k, "-10000000000000000000000")
+  call check(-10000000000000000000001_k, "-10000000000000000000001")
+  call check(-99999999999999999999999_k, "-99999999999999999999999")
+  call check(-100000000000000000000000_k, "-100000000000000000000000")
+  call check(-100000000000000000000001_k, "-100000000000000000000001")
+  call check(-999999999999999999999999_k, "-999999999999999999999999")
+  call check(-1000000000000000000000000_k, "-1000000000000000000000000")
+  call check(-1000000000000000000000001_k, "-1000000000000000000000001")
+  call check(-9999999999999999999999999_k, "-9999999999999999999999999")
+  call check(-10000000000000000000000000_k, "-10000000000000000000000000")
+  call check(-10000000000000000000000001_k, "-10000000000000000000000001")
+  call check(-99999999999999999999999999_k, "-99999999999999999999999999")
+  call check(-100000000000000000000000000_k, "-100000000000000000000000000")
+  call check(-100000000000000000000000001_k, "-100000000000000000000000001")
+  call check(-999999999999999999999999999_k, "-999999999999999999999999999")
+  call check(-1000000000000000000000000000_k, "-1000000000000000000000000000")
+  call check(-1000000000000000000000000001_k, "-1000000000000000000000000001")
+  call check(-9999999999999999999999999999_k, "-9999999999999999999999999999")
+  call check(-10000000000000000000000000000_k, "-10000000000000000000000000000")
+  call check(-10000000000000000000000000001_k, "-10000000000000000000000000001")
+  call check(-99999999999999999999999999999_k, "-99999999999999999999999999999")
+  call check(-100000000000000000000000000000_k, "-100000000000000000000000000000")
+  call check(-100000000000000000000000000001_k, "-100000000000000000000000000001")
+  call check(-999999999999999999999999999999_k, "-999999999999999999999999999999")
+  call check(-1000000000000000000000000000000_k, "-1000000000000000000000000000000")
+  call check(-1000000000000000000000000000001_k, "-1000000000000000000000000000001")
+  call check(-9999999999999999999999999999999_k, "-9999999999999999999999999999999")
+  call check(-10000000000000000000000000000000_k, "-10000000000000000000000000000000")
+  call check(-10000000000000000000000000000001_k, "-10000000000000000000000000000001")
+  call check(-99999999999999999999999999999999_k, "-99999999999999999999999999999999")
+  call check(-100000000000000000000000000000000_k, "-100000000000000000000000000000000")
+  call check(-100000000000000000000000000000001_k, "-100000000000000000000000000000001")
+  call check(-999999999999999999999999999999999_k, "-999999999999999999999999999999999")
+  call check(-1000000000000000000000000000000000_k, "-1000000000000000000000000000000000")
+  call check(-1000000000000000000000000000000001_k, "-1000000000000000000000000000000001")
+  call check(-9999999999999999999999999999999999_k, "-9999999999999999999999999999999999")
+  call check(-10000000000000000000000000000000000_k, "-10000000000000000000000000000000000")
+  call check(-10000000000000000000000000000000001_k, "-10000000000000000000000000000000001")
+  call check(-99999999999999999999999999999999999_k, "-99999999999999999999999999999999999")
+  call check(-100000000000000000000000000000000000_k, "-100000000000000000000000000000000000")
+  call check(-100000000000000000000000000000000001_k, "-100000000000000000000000000000000001")
+  call check(-999999999999999999999999999999999999_k, "-999999999999999999999999999999999999")
+  call check(-1000000000000000000000000000000000000_k, "-1000000000000000000000000000000000000")
+  call check(-1000000000000000000000000000000000001_k, "-1000000000000000000000000000000000001")
+  call check(-9999999999999999999999999999999999999_k, "-9999999999999999999999999999999999999")
+  call check(-10000000000000000000000000000000000000_k, "-10000000000000000000000000000000000000")
+  call check(-10000000000000000000000000000000000001_k, "-10000000000000000000000000000000000001")
+  call check(-99999999999999999999999999999999999999_k, "-99999999999999999999999999999999999999")
+  call check(-100000000000000000000000000000000000000_k, "-100000000000000000000000000000000000000")
+  call check(-100000000000000000000000000000000000001_k, "-100000000000000000000000000000000000001")
+  call check(-109999999999999999999999999999999999999_k, "-109999999999999999999999999999999999999")
+
+contains
+
+  subroutine check (i, str)
+    implicit none
+    integer(kind=k), intent(in), value :: i
+    character(len=*), intent(in) :: str
+
+    character(len=100) :: buffer
+    write(buffer,*) i
+    if (adjustl(buffer) /= adjustl(str)) stop 1
+  end subroutine
+
+  subroutine random_digits (str)
+    implicit none
+    integer, parameter :: l = 38
+    character(len=l+1) :: str
+    real :: r
+    integer :: i, d
+
+    str = ""
+    do i = 2, l+1
+      call random_number(r)
+      d = floor(r * 10)
+      str(i:i) = achar(48 + d)
+    end do
+
+    call random_number(r)
+    if (r > 0.5) then
+      str(1:1) = '-'
+    end if
+  end subroutine
+end