Upgradeable programs needs program account's address as program id (#14417)

programs/bpf/rust/upgradeable/src/lib.rs

@@ -2,16 +2,24 @@
 
 extern crate solana_program;
 use solana_program::{
-    account_info::AccountInfo, entrypoint, entrypoint::ProgramResult, msg, pubkey::Pubkey,
+    account_info::AccountInfo,
+    entrypoint,
+    entrypoint::ProgramResult,
+    msg,
+    pubkey::Pubkey,
+    sysvar::{clock, fees},
 };
 
 entrypoint!(process_instruction);
 fn process_instruction(
-    _program_id: &Pubkey,
+    program_id: &Pubkey,
     accounts: &[AccountInfo],
     _instruction_data: &[u8],
 ) -> ProgramResult {
     msg!("Upgradeable program");
-    assert_eq!(accounts.len(), 2);
+    assert_eq!(accounts.len(), 3);
+    assert_eq!(accounts[0].key, program_id);
+    assert_eq!(*accounts[1].key, clock::id());
+    assert_eq!(*accounts[2].key, fees::id());
     Err(42.into())
 }