| call sub1(); call flush; stop | |
| contains | |
| subroutine sub1 | |
| integer :: a, b | |
| dimension a(3, 4:5) | |
| do b = 1, 3; a(b, :) = b*10; enddo; implicit1 = 20; implicit2 = 30 | |
| print *, a !<<<<<START | |
| print *, b | |
| print *, implicit1 | |
| print *, implicit2 | |
| if (implicit2 .gt. 3) then | |
| print *, "OK" | |
| end if !<<<<<END | |
| end subroutine | |
| subroutine x | |
| end subroutine x | |
| end program |