From: sayle <sayle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 5 Jan 2007 21:23:05 +0000 (+0000)
Subject: 	* trans-array.c (gfc_trans_array_constructor_value): Make the
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=ab47ff34f9ea6b48aeb7ae86a73ffb9c3557f6e5;p=thirdparty%2Fgcc.git

	* trans-array.c (gfc_trans_array_constructor_value): Make the
	static const "data" array as TREE_READONLY.
	* trans-stmt.c (gfc_trans_character_select): Likewise.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120501 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 73dcf0e57f2c..a6d222341a0f 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-05  Roger Sayle  <roger@eyesopen.com>
+
+	* trans-array.c (gfc_trans_array_constructor_value): Make the
+	static const "data" array as TREE_READONLY.
+	* trans-stmt.c (gfc_trans_character_select): Likewise.
+
 2007-01-05  Roger Sayle  <roger@eyesopen.com>
 
 	* trans-array.c (gfc_conv_loop_setup):  Test whether the loop
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index d6d3ff7eff08..86e565781203 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -1224,6 +1224,7 @@ gfc_trans_array_constructor_value (stmtblock_t * pblock, tree type,
 	      TREE_STATIC (tmp) = 1;
 	      TREE_CONSTANT (tmp) = 1;
 	      TREE_INVARIANT (tmp) = 1;
+	      TREE_READONLY (tmp) = 1;
 	      DECL_INITIAL (tmp) = init;
 	      init = tmp;
 
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index 8a2a2b37255a..3c14d0299ef0 100644
--- a/gcc/fortran/trans-stmt.c
+++ b/gcc/fortran/trans-stmt.c
@@ -1445,6 +1445,7 @@ gfc_trans_character_select (gfc_code *code)
   TREE_CONSTANT (tmp) = 1;
   TREE_INVARIANT (tmp) = 1;
   TREE_STATIC (tmp) = 1;
+  TREE_READONLY (tmp) = 1;
   DECL_INITIAL (tmp) = init;
   init = tmp;