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