trans-array.c (gfc_trans_array_constructor_value): Make the static const "data"…

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


	* 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.

From-SVN: r120501

gcc/fortran/ChangeLog

 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
 	stride is one, to avoid fold_build2 introducing a useless
 	NON_LVALUE_EXPR node.

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;
 

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;