program main
   use, intrinsic :: iso_fortran_env, only: _KIND
   integer(kind=_KIND) :: i
   print*, _KIND
end program main
