1 2 3 4 5 6 7 8 9 10 11
i=3 j=0 do i=i,5 j = j+i end do do i=3,i j = j+i end do if (i.ne.7) call abort() print *, i,j end