com.c (ffecom_sym_transform_): Set tree type of offset to ssizetype.

	* com.c (ffecom_sym_transform_): Set tree type of offset
	to ssizetype.

From-SVN: r73127

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 12cdc27cf27bb20a9da926bed65c5580c7d69704..fe7ed0516e0b8db79893ce3c383e9575195f899a 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-31  Jakub Jelinek  <jakub@redhat.com>
+
+       * com.c (ffecom_sym_transform_): Set tree type of offset
+       to ssizetype.
+
 2003-10-21  Kelley Cook  <kcook@gcc.gnu.org>
 
        * Make-lang.in (f/g77.1): Honor $(docobjdir).

diff --git a/gcc/f/com.c b/gcc/f/com.c
index e992cb90b773c1b84946e5f2af7af18bac9a908e..535ddbb87e865892885b6346cb4e1efab839341d 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -7919,6 +7919,7 @@ ffecom_sym_transform_ (ffesymbol s)
              {
                ffetargetOffset offset;
                ffestorag cst;
+               tree toffset;
 
                cst = ffestorag_parent (st);
                assert (cst == ffesymbol_storage (cs));
@@ -7935,9 +7936,10 @@ ffecom_sym_transform_ (ffesymbol s)
                             ffecom_1 (ADDR_EXPR,
                                       build_pointer_type (TREE_TYPE (ct)),
                                       ct));
+               toffset = build_int_2 (offset, 0);
+               TREE_TYPE (toffset) = ssizetype;
                t = ffecom_2 (PLUS_EXPR, TREE_TYPE (t),
-                             t,
-                             build_int_2 (offset, 0));
+                             t, toffset);
                t = convert (build_pointer_type (type),
                             t);
                TREE_CONSTANT (t) = 1;