create procedure p1 () select 1;

create role r1, r2;

grant r1 to r2;

create user foo@localhost;

grant r2 to foo@localhost;

grant execute on procedure test.p1 to r1;

#grant alter routine on procedure test.p1 to r2;

connect foo,localhost,foo;

set role r2;

show grants;

call p1();