From 4e16ca9a8206d0951baab2140533c8e59d8bf3d3 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sun, 24 Jun 2007 19:24:02 +0000 Subject: [PATCH] re PR fortran/32136 (ICE with transfer in gfc_conv_array_initializer) 2007-06-24 Paul Thomas PR fortran/32136 * gfortran.dg/pr32136.f90: New test. From-SVN: r125987 --- gcc/testsuite/ChangeLog | 11 +++-------- gcc/testsuite/gfortran.dg/pr32136.f90 | 11 +++++++++++ 2 files changed, 14 insertions(+), 8 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/pr32136.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 63f0a98284f..dbfdf287d0f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,12 +1,7 @@ -2007-06-24 Jerry DeLisle - - PR fortran/32446 - * gfortran.dg/fmt_huge.f90: New test. - -2007-06-24 Tobias Burnus +2007-06-24 Paul Thomas - PR fortran/32460 - * gfortran.dg/private_type_6.f90: New. + PR fortran/32136 + * gfortran.dg/pr32136.f90: New test. 2007-06-24 Paul Thomas diff --git a/gcc/testsuite/gfortran.dg/pr32136.f90 b/gcc/testsuite/gfortran.dg/pr32136.f90 new file mode 100644 index 00000000000..304b7b4a212 --- /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 +! +real(kind(0d0)), parameter :: r(1) = & + transfer(transfer(sqrt(2d0), (/ .true. /) ), (/ 0d0 /), 1) + if (r(1) .ne. sqrt(2d0)) call abort () +end + -- 2.30.2