program int_dp_param

    integer, parameter :: prec1 = 4, prec2 = 8
    integer(prec1) :: u = 2147483647
    integer(prec2) :: v = 2147483647
    print *, u, v

end program