program program                                                      ! LINE 1
    use module
    implicit none

    external declared_external_subroutine
    integer :: unused_local_variable
    integer :: assigned_local_variable
    integer :: local_variable_accessed_from_internal_subroutine

    ! Don't call unused_defined_external_subroutine
    call defined_external_subroutine
    call declared_external_subroutine
    call undeclared_external_subroutine
    call internal_subroutine
    call used_module_subroutine

    assigned_local_variable = local_variable_accessed_from_internal_subroutine

    print *, assigned_local_variable

contains

    subroutine internal_subroutine                                   ! LINE 23
        print *, "Called internal_subroutine"
        local_variable_accessed_from_internal_subroutine = 12345
    end subroutine internal_subroutine

    subroutine unused_internal_subroutine
        print *, "Called unused_internal_subroutine"
    end subroutine unused_internal_subroutine

end program program

subroutine defined_external_subroutine
    implicit none
    print *, "Called defined_external_subroutine"
end subroutine defined_external_subroutine

subroutine unused_defined_external_subroutine
    implicit none
    print *, "Called unused_defined_external_subroutine"
end subroutine unused_defined_external_subroutine