| subroutine qwer | |
| end subroutine qwer | |
| program test !<<<<<4,9,qqqqq,true, !<<<<<4,9,asdf,false, !<<<<<4,9,ghjk,true, !<<<<<4,9,qwer,false, | |
| !TODO !4,9,s1,true, !4,9,s2,false, !4,9,s3,false, | |
| use module | |
| implicit none | |
| call asdf | |
| call qwer | |
| ! Don't call ghjk; it's OK if that is introduced and it shadows the existing external subroutine | |
| call s2 | |
| call s3 | |
| end program test | |
| subroutine asdf !14,12,qqqqq,true, !14,12,s2,true, !14,12,s3,false, | |
| use module | |
| call s3 | |
| end subroutine asdf | |
| subroutine ghjk | |
| end subroutine ghjk |