org.eclipse.photran.core.vpg.tests/refactoring-test-code/extract-procedure/test04-in-loop.f90

subroutine hmmm
    do 10 i = 1, 5
       print *, i                   !<<<<<START
       if (i .gt. 3) then
         print *, i * 10
       end if                       !<<<<<END
       print *, i
10  continue
end subroutine

program main; call hmmm; call flush; stop; end program