diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 6e9bfe415286f41ec977048c06d5b740901ab96c..36dedc7c50ca90b7888f9c6f8faa5f07a37f8557 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2005-09-12  Josh Conner  <jconner@apple.com>
+
+	PR middle-end/23237
+	* ipa-reference.c (static_execute): Don't mark variables in
+	named sections TREE_READONLY.
+
 2005-09-12  Alan Modra  <amodra@bigpond.net.au>
 
 	* config/rs6000/rs6000.c (get_next_active_insn): Simplify test for
diff --git a/gcc/ipa-reference.c b/gcc/ipa-reference.c
index f2f9252e8ac26ba79cfb55afc96b2a63386f285e..531705226a5e66142f8eefbfa87e60da68216ae4 100644
--- a/gcc/ipa-reference.c
+++ b/gcc/ipa-reference.c
@@ -963,10 +963,17 @@ static_execute (void)
     EXECUTE_IF_SET_IN_BITMAP (module_statics_readonly, 0, index, bi)
       {
 	tree var = get_static_decl (index);
-	TREE_READONLY (var) = 1;
-	if (dump_file)
-	  fprintf (dump_file, "read-only var %s\n", 
-		   get_static_name (index)); 
+
+	/* Ignore variables in named sections - changing TREE_READONLY
+	   changes the section flags, potentially causing conflicts with
+	   other variables in the same named section.  */
+	if (DECL_SECTION_NAME (var) == NULL_TREE)
+	  {
+	    TREE_READONLY (var) = 1;
+	    if (dump_file)
+	      fprintf (dump_file, "read-only var %s\n", 
+		       get_static_name (index));
+	  }
 	if (DECL_INITIAL (var)
 	    && is_gimple_min_invariant (DECL_INITIAL (var)))
 	  {