re PR fortran/44735 (ICE on FORALL with character array pointer)

	PR fortran/44735
	* gfortran.dg/pr44735.f90: New test.

From-SVN: r222766

gcc/testsuite/ChangeLog

+2015-05-04  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR fortran/44735
+	* gfortran.dg/pr44735.f90: New test.
+
 2015-05-04  Richard Biener  <rguenther@suse.de>
 
 	PR tree-optimization/65965

gcc/testsuite/gfortran.dg/pr44735.f90

+! { dg-do run }
+
+program main
+  if (bug() /= "abcdefghij") call abort
+contains
+  function bug()
+    character(len=10) :: bug
+    character(len=1), dimension(:), pointer :: p_chars
+    allocate(p_chars(10))
+    p_chars = ['a','b','c','d','e','f','g','h','i','j']
+    forall (i=1:len(bug))
+      bug(i:i) = p_chars(i)
+    end forall
+    deallocate(p_chars)
+  end function bug
+end program main