diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-common.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 123fb9a..512e813 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2005-04-24 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> + + PR fortran/20059 + * trans-common.c (translate_common): Cast offset and + common_segment->offset to type int for warning message. + 2005-04-23 DJ Delorie <dj@redhat.com> * trans-decl.c: Adjust warning() callers. diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index 42e6712..d164fe3 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -848,7 +848,7 @@ translate_common (gfc_common_head *common, gfc_symbol *var_list) requirements. Insert padding immediately before this segment. */ gfc_warning ("Padding of %d bytes required before '%s' in " - "COMMON '%s' at %L", offset, s->sym->name, + "COMMON '%s' at %L", (int)offset, s->sym->name, common->name, &common->where); } else @@ -874,7 +874,7 @@ translate_common (gfc_common_head *common, gfc_symbol *var_list) if (common_segment->offset != 0) { gfc_warning ("COMMON '%s' at %L requires %d bytes of padding at start", - common->name, &common->where, common_segment->offset); + common->name, &common->where, (int)common_segment->offset); } create_common (common, common_segment, saw_equiv); |