re PR fortran/32136 (ICE with transfer in gfc_conv_array_initializer)

2007-06-24  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/32136
	* gfortran.dg/pr32136.f90: New test.

From-SVN: r125987

gcc/testsuite/ChangeLog

-2007-06-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
-
-	PR fortran/32446
-	* gfortran.dg/fmt_huge.f90: New test.
-
-2007-06-24  Tobias Burnus  <burnus@net-de>
+2007-06-24  Paul Thomas  <pault@gcc.gnu.org>
 
-	PR fortran/32460
-	* gfortran.dg/private_type_6.f90: New.
+	PR fortran/32136
+	* gfortran.dg/pr32136.f90: New test.
 
 2007-06-24  Paul Thomas  <pault@gcc.gnu.org>
 

gcc/testsuite/gfortran.dg/pr32136.f90

+! { dg-do run }
+! { dg-options "-std=gnu" }
+! Tests PR32136, which went away!
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+!
+real(kind(0d0)), parameter :: r(1) = &
+    transfer(transfer(sqrt(2d0), (/ .true. /) ), (/ 0d0 /), 1)
+    if (r(1) .ne. sqrt(2d0)) call abort ()
+end
+