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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 63f0a98284fbeab54f5459fbae6457adfb644005..dbfdf287d0fdd07dbf84b2dcbb038bcb611ea877 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,12 +1,7 @@
-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>
 

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