From 1edb55c86493dbfd1f57a3e41536673fb66588d6 Mon Sep 17 00:00:00 2001
From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 11 Jul 2011 16:42:29 +0000
Subject: 	PR fortran/49698 	* trans-stmt.c
 (gfc_trans_pointer_assign_need_temp): Initialize 	inner_size to
 gfc_index_one_node instead of integer_one_node.

	* gfortran.dg/pr49698.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@176164 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/gfortran.dg/pr49698.f90 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/pr49698.f90

(limited to 'gcc/testsuite/gfortran.dg/pr49698.f90')

diff --git a/gcc/testsuite/gfortran.dg/pr49698.f90 b/gcc/testsuite/gfortran.dg/pr49698.f90
new file mode 100644
index 00000000000..638cbb0b785
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr49698.f90
@@ -0,0 +1,15 @@
+! PR fortran/49698
+! { dg-do compile }
+subroutine foo (x, y, z)
+  type S
+    integer, pointer :: e => null()
+  end type S
+  type T
+    type(S), dimension(:), allocatable :: a
+  end type T
+  type(T) :: x, y
+  integer :: z, i
+  forall (i = 1 : z)
+    y%a(i)%e => x%a(i)%e
+  end forall
+end subroutine foo
-- 
cgit v1.2.1