diff options
| author | Roger Sayle <roger@eyesopen.com> | 2007-01-05 21:23:05 +0000 |
|---|---|---|
| committer | Roger Sayle <sayle@gcc.gnu.org> | 2007-01-05 21:23:05 +0000 |
| commit | 0f0707d106cdfe2904928adfdbd7faa6b369008c (patch) | |
| tree | 18666d0d467ee524fd55fc79f1d5827b3d8b3165 /gcc/fortran/trans-array.c | |
| parent | c96111c00d1c3c1a40535a4580681347eeb801b9 (diff) | |
| download | gcc-0f0707d106cdfe2904928adfdbd7faa6b369008c.zip gcc-0f0707d106cdfe2904928adfdbd7faa6b369008c.tar.gz gcc-0f0707d106cdfe2904928adfdbd7faa6b369008c.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index d6d3ff7..86e5657 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; |