Initial checkin of GCC 4.9.0 from trunk (r208799).

Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba

1 files changed, 55 insertions, 0 deletions

diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90
new file mode 100644
index 000000000..6a660c203
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90
@@ -0,0 +1,55 @@
+! { dg-do run }
+! This tests the fix for pr15809 in which automatic character length,
+! dummy, pointer arrays were broken.
+!
+! contributed by Paul Thomas  <pault@gcc.gnu.org>
+!
+module global
+  character(12), dimension(2), target :: t
+end module global
+
+program oh_no_not_pr15908_again
+  character(12), dimension(:), pointer :: ptr
+
+  call a (ptr, 12)
+  if (.not.associated (ptr) ) call abort ()
+  if (any (ptr.ne."abc")) call abort ()
+
+  ptr => null ()              ! ptr points to 't' here.
+  allocate (ptr(3))
+  ptr = "xyz"
+  call a (ptr, 12)
+
+  if (.not.associated (ptr)) call abort ()
+  if (any (ptr.ne."lmn")) call abort ()
+
+  call a (ptr, 0)
+
+  if (associated (ptr)) call abort ()
+
+contains
+
+  subroutine a (p, l)
+    use global
+    character(l), dimension(:), pointer :: p
+    character(l), dimension(3)          :: s
+
+    s = "lmn"
+
+    if (l.ne.12) then
+      deallocate (p)           ! ptr was allocated in main.
+      p => null ()
+      return
+    end if
+
+    if (.not.associated (p)) then
+      t = "abc"
+      p => t
+    else
+      if (size (p,1).ne.3) call abort ()
+      if (any (p.ne."xyz")) call abort ()
+      p = s
+    end if
+  end subroutine a
+
+end program oh_no_not_pr15908_again