* f/com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF.

From-SVN: r47667

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index e9728d336fcf1ea3c6d897beef889dda9c02e128..7277d71a31e56d06cd558113115c259820b0c822 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+Wed Dec  5 06:49:21 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+       * com.c (ffecom_1): Properly handle TREE_READONLY for INDIRECT_REF.
+
 Mon Dec  3 18:56:04 2001  Neil Booth  <neil@daikokuya.demon.co.uk>
 
        * com.c: Remove leading capital from diagnostic messages, as

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 64aa8ffb389cfdd41de4ca6634bb2d783014687a..7167b408158488f9f62d52f8321515b779b68cee 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -9556,8 +9556,10 @@ ffecom_1 (enum tree_code code, tree type, tree node)
 
   if (TREE_SIDE_EFFECTS (node))
     TREE_SIDE_EFFECTS (item) = 1;
-  if ((code == ADDR_EXPR) && staticp (node))
+  if (code == ADDR_EXPR && staticp (node))
     TREE_CONSTANT (item) = 1;
+  else if (code == INDIRECT_REF)
+    TREE_READONLY (item) = TYPE_READONLY (type);
   return fold (item);
 }