Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 18 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/tagged_type_pkg.adb b/gcc-4.9/gcc/testsuite/gnat.dg/tagged_type_pkg.adb
new file mode 100644
index 000000000..dea1b5461
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/tagged_type_pkg.adb
@@ -0,0 +1,18 @@
+package body Tagged_Type_Pkg is
+      
+   function Pass_TT_Access (Obj : access TT'Class) return access TT'Class is
+   begin
+      if Obj = null then
+         return null;
+      
+      else
+         --  The implicit conversion in the assignment to the return object
+         --  must fail if Obj's actual is not a library-level object.
+         
+         return TT_Acc : access TT'Class := Obj do
+            TT_Acc := TT_Acc.Self;
+         end return;
+      end if;
+   end Pass_TT_Access;
+   
+end Tagged_Type_Pkg;