program kind

implicit none

integer, parameter :: ib = selected_int_kind(9)       !integer*4
integer, parameter :: sp = selected_real_kind(6,37)   !real*4
!oder                    = kind(1.)
integer, parameter :: dp = selected_real_kind(15,307) !real*8
!oder                    = kind(1.d0)
integer, parameter :: qp = selected_real_kind(33,4931)!real*16


integer(ib) :: i1
real :: dummy
real(sp) ::  rsp
real(dp) ::  rdp
real(qp) ::  rqp

print*,ib,sp,dp,qp

dummy=0.
rsp=4.123
!oder 
!rdp=4.123_sp
rdp=4.123d0
!oder 
!rdp=4.123_dp
rqp=4.123_qp

print*,dummy,rsp,rdp,rqp

rsp=1.234d44
print*,rsp
rsp=1.23456789123
print*,rsp

end