program test

    implicit none

    integer :: i, j

    j=1
    print *, 1
    j = 1
    print *, 2
    j = 2
    print *, 3
    j = 3
    print *, 4
    j = 4
    print *, 5
    j = 5
    j = 1

end program test