procedure Test_Subprogram_Box is

    procedure Do_Nothing is
    begin
        null;
    end Do_Nothing;

    task body T is
    begin
        null;
    end T;
begin
    null;
end Test_Subprogram_Box;
