Error when running execute immediate to create synonym in Procedure

Question

The following command
execute immediate 'create synonym EW6379_DM.kbr_v_tag_eq_new_tags for EW6379.kbr_v_tag_eq_new_tags';
runs fine if executed outside in a Stored procedure,
but if I add this command to a Procedure will fails with error ORA-01031 insuficient Privilegies
Very strange.

Answer 1

Connected to Oracle Database 10g Express Edition Release 10.2.0.1.0
Connected as SYS
SQL>
SQL> drop role r1;
Role dropped
SQL> drop user u1 cascade;
User dropped
SQL> create user u1 identified by u1;
User created
SQL> grant connect, resource to u1;
Grant succeeded
SQL> create role r1;
Role created
SQL> grant create any synonym to r1;
Grant succeeded
SQL> grant create any procedure to r1;
Grant succeeded
SQL> grant r1 to u1;
Grant succeeded
SQL> conn u1/u1;
Connected to Oracle Database 10g Express Edition Release 10.2.0.1.0
Connected as u1
SQL> create table t(i number);
Table created
SQL> create synonym s for t;
Synonym created
SQL> create table t2(i number);
Table created
SQL> create or replace procedure p
  2  is
  3  begin
  4  execute immediate 'create synonym s2 for t2';
  5  end;
  6  /
Procedure created
SQL> show err;
No errors for PROCEDURE U1.P
SQL> exec p;
begin p; end;
ORA-01031: insufficient privileges
ORA-06512: at "U1.P", line 4
ORA-06512: at line 1
SQL> conn sys/0000 as sysdba;
Connected to Oracle Database 10g Express Edition Release 10.2.0.1.0
Connected as SYS
SQL> grant create any synonym to u1;
Grant succeeded
SQL> conn u1/u1;
Connected to Oracle Database 10g Express Edition Release 10.2.0.1.0
Connected as u1
SQL> exec p;
PL/SQL procedure successfully completed
SQL>