1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/pak.adb b/gcc/testsuite/gnat.dg/pak.adb
new file mode 100644
index 000000000..0430482f3
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/pak.adb
@@ -0,0 +1,15 @@
+--  { dg-do compile }
+package body Pak is
+   pragma Suppress (Discriminant_Check);
+   --  Suppress discriminant check to prevent the assignment from using
+   --  the predefined primitive _assign.
+   
+   procedure Initialize (X : in out T) is begin null; end Initialize;
+   procedure Finalize (X : in out T) is begin null; end Finalize;
+   
+   procedure Assign (X : out T'Class) is
+      Y : T;
+   begin
+      T (X) := Y;
+   end Assign;
+end Pak;