blob: ba5999e765e979503e41f7b657f7db6db5ad6bab [file] [log] [blame]
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