program parameter_01
    integer, parameter :: i = 2
    i = 3
    print*,i
end program