gcc/testsuite/gnat.dg/profile_warning_p.adb

   1 package body profile_warning_p is
   2    procedure Proc is begin null; end Proc;
   3
   4    task type T is
   5    end T;
   6
   7    task body T is
   8    begin
   9       null;
  10    end;
  11
  12    type A_T is access T;
  13
  14    procedure Do_Stuff is
  15       P : A_T;
  16    begin
  17       P := new T;
  18    end Do_Stuff;
  19
  20 end;