! test_big.f90  test_big_integers_module

program test_big
  use big_integers_module
  integer k
  type (big_integer) :: i, j

  print *, 'test_big.f90 running'
  i = 10
  print *, 'big_int i='
  call print_big(i)
  print *, ' '

  j = "12345678901234567890123456789"
  print *, 'big_int j=12345678901234567890123456789'
  call print_big(j)
  print *, ' '

  print *, 'big_int i+j='
  call print_big(i+j)
  print *, ' '

  print *, 'big_int j*j='
  call print_big(j*j)
  print *, ' '

  i=1
  do k=1,52
    print *, 'factorial(', k, ')='
    call print_big(i)
    print *, ' '
    i = i * (k+1)
  end do

end program test_big