| module module1 | |
| implicit none | |
| integer :: accessed_variable = 1, assigned_variable, unused_variable | |
| integer, private :: private_variable | |
| private :: private_subroutine | |
| contains | |
| subroutine called_subroutine; end subroutine | |
| subroutine unused_subroutine; end subroutine | |
| subroutine private_subroutine; end subroutine | |
| end module module1 |