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