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

	to ssizetype.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@73127 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 12cdc27..fe7ed05 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 e992cb9..535ddbb 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;