program param_pass_01

    integer, parameter :: i = 2, j = 2
    integer :: p1
    p1 = i + 2.0
    print *, p1

end program