1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/bip_prim_func.adb b/gcc/testsuite/gnat.dg/bip_prim_func.adb
new file mode 100644
index 000000000..6529fe50a
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/bip_prim_func.adb
@@ -0,0 +1,14 @@
+--  { dg-do compile }
+
+package body BIP_Prim_Func is
+        
+   type NTT is new TT with record
+      J : Integer;
+   end record;
+        
+   function Prim_Func return NTT is
+   begin
+      return Result : NTT := (I => 1, J => 2);
+   end Prim_Func;
+        
+end BIP_Prim_Func;