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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1b8e2baf51f07e4fd579556da15c72709f8eca4e..eac3c530192cd31353c2aaa11fa20dd53d75396d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/array_3.f90 b/gcc/testsuite/gfortran.dg/array_3.f90
new file mode 100644 (file)
index 0000000..26879ff
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/array_3.f90
@@ -0,0 +1,13 @@
+! { 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