[GCC 4.8] Initial check-in of GCC 4.8.0

Change-Id: I0719d8a6d0f69b367a6ab6f10eb75622dbf12771

1 files changed, 39 insertions, 0 deletions

diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/move_alloc_13.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/move_alloc_13.f90
new file mode 100644
index 000000000..f889e11a5
--- /dev/null
+++ b/gcc-4.8/gcc/testsuite/gfortran.dg/move_alloc_13.f90
@@ -0,0 +1,39 @@
+! { dg-do run }
+!
+! PR fortran/51970
+! PR fortran/51977
+!
+type t
+end type t
+type, extends(t) :: t2
+  integer :: a
+end type t2
+
+class(t), allocatable :: y(:), z(:)
+
+allocate(y(2), source=[t2(2), t2(3)])
+call func2(y,z)
+
+select type(z)
+  type is(t2)
+    if (any (z(:)%a /= [2, 3])) call abort()
+  class default
+    call abort()
+end select
+
+contains
+  function func(x)
+   class (t), allocatable :: x(:), func(:)
+   call move_alloc (x, func)
+  end function
+
+  function func1(x)
+   class (t), allocatable :: x(:), func1(:)
+   call move_alloc (func1, x)
+  end function
+
+  subroutine func2(x, y)
+   class (t), allocatable :: x(:), y(:)
+   call move_alloc (x, y)
+  end subroutine
+end