re PR fortran/31610 (ICE with transfer, merge in gfc_conv_expr_descriptor)

2008-01-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/31610
	* gfortran.dg/array_3.f90: New test.

From-SVN: r131874

gcc/testsuite/ChangeLog

+2008-01-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/31610
+	* gfortran.dg/array_3.f90: New test.
+
 2008-01-26  Jakub Jelinek  <jakub@redhat.com>
 
 	* gcc.c-torture/compile/pr34966.c (atan): Only use asm

gcc/testsuite/gfortran.dg/array_3.f90

+! { dg-do compile }
+! PR31610 ICE with transfer, merge in gfc_conv_expr_descriptor
+  integer :: i(1) = 1
+  integer :: foo(3)
+  integer :: n(1)
+  foo(1) = 17
+  foo(2) = 55
+  foo(3) = 314
+  print *, i, foo
+  write(*,*) foo([1]), foo([1]+i), [1]+1
+  n = foo([1]+i)
+  print *, n, shape(foo([1]+i)), shape(foo(i+[1]))
+end