blob: 3dd64d3474e6f6e4aa6a3a002bc77ef794e3f236 [file] [log] [blame]
subroutine main()
integer :: i, j
integer :: k, z
!<<<<<START
do i = 2, 15
do j = 1, 10
print *, i
if (i .gt. j) then
print *, i * 10
end if
print *, i
end do
end do
!<<<<<END
end subroutine