| module module ! LINE 1 | |
| implicit none | |
| private :: private_module_subroutine | |
| contains | |
| subroutine used_module_subroutine | |
| print *, "Called used_module_subroutine" | |
| end subroutine used_module_subroutine | |
| subroutine unused_module_subroutine | |
| print *, "Called unused_module_subroutine" | |
| end subroutine unused_module_subroutine | |
| subroutine private_module_subroutine | |
| print *, "Called private_module_subroutine" | |
| end subroutine private_module_subroutine | |
| end module module |