procedure Main is
   type A;
   task Pouet;
begin
   null;
end Main;
