1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/profile_warning_p.adb b/gcc/testsuite/gnat.dg/profile_warning_p.adb
new file mode 100644
index 000000000..455237a77
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/profile_warning_p.adb
@@ -0,0 +1,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;