re PR middle-end/33074 (ICE in copy_insn_1, at emit-rtl.c:4925)

	PR middle-end/33074
	* emit-rtl.c (try_split): Use INSN_LIST instead of EXPR_LIST for
	REG_LIBCALL note.

	* gfortran.dg/pr33074.f90: New test.

From-SVN: r127511

gcc/ChangeLog

+2007-08-15  Jakub Jelinek  <jakub@redhat.com>
+
+	PR middle-end/33074
+	* emit-rtl.c (try_split): Use INSN_LIST instead of EXPR_LIST for
+	REG_LIBCALL note.
+
 2007-08-14  Daniel Berlin  <dberlin@dberlin.org>
 
 	* tree-pass.h (PROP_pta): Removed.

gcc/emit-rtl.c

@@ -3274,7 +3274,7 @@ try_split (rtx pat, rtx trial, int last)
 	  /* Relink the insns with REG_LIBCALL note and with REG_RETVAL note 
 	     after split.  */
 	  REG_NOTES (insn_last) 
-	    = gen_rtx_EXPR_LIST (REG_LIBCALL,
+	    = gen_rtx_INSN_LIST (REG_LIBCALL,
 				 XEXP (note, 0),
 				 REG_NOTES (insn_last)); 
 

gcc/testsuite/ChangeLog

 2007-08-15  Jakub Jelinek  <jakub@redhat.com>
 
+	PR middle-end/33074
+	* gfortran.dg/pr33074.f90: New test.
+
 	PR c++/32992
 	* g++.dg/opt/nrv14.C: New test.
 

gcc/testsuite/gfortran.dg/pr33074.f90

+! PR middle-end/33074
+! { dg-do compile }
+! { dg-options "-O" }
+
+subroutine pr33074(a, w)
+  real a(1), w(1)
+  a(1) = 2.0**int(w(1))
+end