procedure Essai10B is

    I : Integer := 0;
 
    task type T_TskLesVilaines;
    task type T_TskLesAutres;
 
    task body T_TskLesVilaines is
 
        J : Integer;
 
    begin -- T_TskLesVilaines
 
        Put_Line (S_Identifier & " : commence");
        J := 3 / I;
 
--    exception
--        when others =>
--             Put_Line (S_Identifier & " : division par zero");
 
    end T_TskLesVilaines;
 
    task body T_TskLesAutres is
 
    begin -- T_TskLesAutres
 
        Put_Line (S_Identifier & " : commence");
        for I in 1..2 loop
            Put_Line (S_Identifier & " : continue !!");
            delay 1.0;
        end loop;
 
    end T_TskLesAutres;
 
    TskLesVilaines : array (1..3) of T_TskLesVilaines;
    TskLesAutres   : array (1..3) of T_TskLesAutres;
 
begin -- Essai10B
 
    null;
 
  exception
    when Tasking_Error =>
        Put_Line ("Tache cadre : Tasking_Error");
    when others =>
        Put_Line ("Tache cadre : exception inattendue");
 
end Essai10B;