blob: f4875b50eef7644dd1160804910996e1fc5b646d [file] [log] [blame]
subroutine main()
integer :: i, j
!<<<<<START
do j = 1, 10
do i = 1, 10
print *, i+j
end do
end do
!<<<<<END
end subroutine