program real_dp_param

    integer, parameter :: prec1 = 4, prec2 = 8
    real(prec1) :: u = 1.05
    real(prec2) :: v = 1.05
    real(prec2) :: zero = 0.0_4
    print *, u, v, zero

end program