set character set latin1;

drop table if exists räkor;
create table räkor ( typ char(10), antal int );

drop procedure if exists räkna_räkor;
delimiter //;
create procedure räkna_räkor()
begin
  declare alla_räkor int default 0;

  fånig:
  begin
    declare n int;

    select count(*) from räkor where typ = 'stora';
    set alla_räkor = alla_räkor + n;
    select count(*) from räkor where typ = 'små';
    set alla_räkor = alla_räkor + n;
  end fånig;
  select alla_räkor;
end//
delimiter ;//

select 'show latin1-latin1';
show create table räkor;
show create procedure räkna_räkor;

set character set utf8;

select 'show latin1-utf8';
show create table räkor;
show create procedure räkna_räkor;

drop table if exists räkor;
create table räkor ( typ char(10), antal int );

drop procedure if exists räkna_räkor;
delimiter //;
create procedure räkna_räkor()
begin
  declare alla_räkor int default 0;

  fånig:
  begin
    declare n int;

    select count(*) from räkor where typ = 'stora';
    set alla_räkor = alla_räkor + n;
    select count(*) from räkor where typ = 'små';
    set alla_räkor = alla_räkor + n;
  end fånig;
  select alla_räkor;
end//
delimiter ;//

select 'utf8-utf8';
show create table räkor;
show create procedure räkna_räkor;

set character set latin1;

select 'utf8-latin1';
show create table räkor;
show create procedure räkna_räkor;

drop table räkor;
drop procedure räkna_räkor;