Index: trans-array.c =================================================================== *** trans-array.c (revision 120354) --- trans-array.c (working copy) *************** gfc_trans_array_constructor_value (stmtb *** 1224,1229 **** --- 1224,1230 ---- TREE_STATIC (tmp) = 1; TREE_CONSTANT (tmp) = 1; TREE_INVARIANT (tmp) = 1; + TREE_READONLY (tmp) = 1; DECL_INITIAL (tmp) = init; init = tmp; Index: trans-stmt.c =================================================================== *** trans-stmt.c (revision 120354) --- trans-stmt.c (working copy) *************** gfc_trans_character_select (gfc_code *co *** 1445,1450 **** --- 1445,1451 ---- TREE_CONSTANT (tmp) = 1; TREE_INVARIANT (tmp) = 1; TREE_STATIC (tmp) = 1; + TREE_READONLY (tmp) = 1; DECL_INITIAL (tmp) = init; init = tmp;