blob: 8a4eb34616508727e8e595be6a0ee5fe9468ac46 [file] [log] [blame]
subroutine main()
integer :: i, j
integer :: k, z
do j = 1, 10
do k = 2, 20
do i = 1, 10 !<<<<< 7, 9, 15, 15, pass
print *, i
if (i .gt. j) then
print *, i * 10
end if
print *, i
end do
end do
end do
end subroutine