Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 36 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/auto_char_pointer_array_result_1.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/auto_char_pointer_array_result_1.f90
new file mode 100644
index 000000000..8e3eb94c2
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/auto_char_pointer_array_result_1.f90
@@ -0,0 +1,36 @@
+! { dg-do run }
+! Tests the fixes for PR25597 and PR27096.
+!
+! This test combines the PR testcases.
+!
+  character(10), dimension (2) :: implicit_result
+  character(10), dimension (2) :: explicit_result
+  character(10), dimension (2) :: source
+  source = "abcdefghij"
+  explicit_result = join_1(source)
+  if (any (explicit_result .ne. source)) call abort () 
+
+  implicit_result = reallocate_hnv (source, size(source, 1), LEN (source))
+  if (any (implicit_result .ne. source)) call abort () 
+
+contains
+
+! This function would cause an ICE in gfc_trans_deferred_array.
+  function join_1(self) result(res)
+    character(len=*), dimension(:) :: self
+    character(len=len(self)), dimension(:), pointer :: res
+    allocate (res(2))
+    res = self
+  end function
+
+! This function originally ICEd and latterly caused a runtime error.
+  FUNCTION reallocate_hnv(p, n, LEN)
+    CHARACTER(LEN=LEN), DIMENSION(:), POINTER :: reallocate_hnv
+    character(*), dimension(:) :: p
+    ALLOCATE (reallocate_hnv(n))
+    reallocate_hnv = p
+  END FUNCTION reallocate_hnv
+
+end
+
+