package body profile_warning_p is procedure Proc is begin null; end Proc; task type T is end T; task body T is begin null; end; type A_T is access T; procedure Do_Stuff is P : A_T; begin P := new T; end Do_Stuff; end;