包体编译总不通过，想请问下大家

包体编译总不通过，想请教下大家
包头：
create or replace package testpackage as
procedure selectemp(
v_name emp.ename%type,
v_sal emp.sal%type);
end testpackage; （编译成功)

包体：
create or replace package body testpackage as
procedure selectemp(
v_ename emp.ename%type,
v_sal emp.sal%type) is
begin
insert into c(A)
values (v_ename);
end selectemp;
end testpackage;
请问下是哪里错了？看了很久都看不出来，总是编译错误。。。

------解决方案--------------------
包头中定义变量为v_name,而包体中又是v_ename