| subroutine qwer !<<<<<1,12,false | |
| end subroutine qwer | |
| program test !TODO 4,9,true, (OK to delete main program)--but wont compile | |
| use module | |
| implicit none | |
| call asdf | |
| call qwer | |
| call s2 | |
| call s3 | |
| end program test | |
| subroutine asdf !<<<<<13,12,false | |
| use module | |
| call s3 | |
| end subroutine asdf | |
| subroutine ghjk !<<<<<18,12,true | |
| end subroutine ghjk |