gcc/testsuite/gnat.dg/profile_warning_p.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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;