module kind_var
     implicit none
     integer, parameter :: long_int=selected_int_kind(9)
     integer, parameter :: short_int=selected_int_kind(3)
     integer, parameter :: long_real=selected_real_kind(10,50)
     integer, parameter :: short_real=selected_real_kind(3,3)
end module kind_var
program ex0436
use kind_var
implicit none
integer(kind=long_int) :: a=12345678
integer(kind=short_int) :: b=12
real(kind=long_real) :: c=1.23456789D45
real(kind=short_real) :: d=1230
write(*,'(I10)')  a
write(*,'(I10)')  b
write(*,'(E15.5)')  c
write(*,'(E15.5)')  d
stop
end program ex0436