package body Create_Pack_1 is
    task body T1 is
    begin
        Global := Global + A_One;
        Remote;
    end T1;

    procedure P1 is
        T : T1; -- this creates the task, runs task to completion and terminates
    begin
        null;
    end P1;

end Create_Pack_1;