program parameter_03
implicit none
integer, parameter :: l_knd = kind(.true.)
print *, l_knd
end program
