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