diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2007-06-24 19:24:02 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2007-06-24 19:24:02 +0000 |
| commit | 4e16ca9a8206d0951baab2140533c8e59d8bf3d3 (patch) | |
| tree | 902f98fbf4083b60912e2a1a23641f23e2438d09 /gcc | |
| parent | 7ed967e82f0d3a7540ec98929449cc9ccfbdd0d3 (diff) | |
| download | gcc-4e16ca9a8206d0951baab2140533c8e59d8bf3d3.zip gcc-4e16ca9a8206d0951baab2140533c8e59d8bf3d3.tar.gz gcc-4e16ca9a8206d0951baab2140533c8e59d8bf3d3.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr32136.f90 | 11 |
2 files changed, 14 insertions, 8 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 63f0a98..dbfdf28 100644 --- 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 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 + |