diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index bdb9d2237cdf..42ace4ab0dfe 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-27  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+	PR middle-end/33436
+	* expr.c (emit_group_load_1): Split constant double when destination
+	length is half source length.
+
 2007-09-27  Richard Sandiford  <rsandifo@nildram.co.uk>
 
 	* config/mips/mips.h (PTF_AVOID_BRANCHLIKELY): New macro.
diff --git a/gcc/expr.c b/gcc/expr.c
index ff3258d746eb..9d2a61ad7829 100644
--- a/gcc/expr.c
+++ b/gcc/expr.c
@@ -1776,8 +1776,25 @@ emit_group_load_1 (rtx *tmps, rtx dst, rtx orig_src, tree type, int ssize)
       else if (CONSTANT_P (src) && GET_MODE (dst) != BLKmode
                && XVECLEN (dst, 0) > 1)
         tmps[i] = simplify_gen_subreg (mode, src, GET_MODE(dst), bytepos);
-      else if (CONSTANT_P (src)
-	       || (REG_P (src) && GET_MODE (src) == mode))
+      else if (CONSTANT_P (src))
+	{
+	  HOST_WIDE_INT len = (HOST_WIDE_INT) bytelen;
+
+	  if (len == ssize)
+	    tmps[i] = src;
+	  else
+	    {
+	      rtx first, second;
+
+	      gcc_assert (2 * len == ssize);
+	      split_double (src, &first, &second);
+	      if (i)
+		tmps[i] = second;
+	      else
+		tmps[i] = first;
+	    }
+	}
+      else if (REG_P (src) && GET_MODE (src) == mode)
 	tmps[i] = src;
       else
 	tmps[i] = extract_bit_field (src, bytelen * BITS_PER_UNIT,