| subroutine hmmm | |
| do 10 i = 1, 5 | |
| call new_procedure(i) | |
| print *, i | |
| 10 continue | |
| end subroutine | |
| subroutine new_procedure(i) | |
| implicit none | |
| integer :: i | |
| print *, i !<<<<<START | |
| if (i .gt. 3) then | |
| print *, i * 10 | |
| end if !<<<<<END | |
| end subroutine | |
| program main; call hmmm; call flush; stop; end program |