diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-04-24 15:51:39 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-04-24 15:51:39 +0200 |
| commit | eb83e81102d1770daba45b95ea0f9e5a00c938ae (patch) | |
| tree | 0b35e9cf19e3ed9313832e9e741598c68a75a98f /gcc/fortran/trans-common.c | |
| parent | 93cfbc5c7c33bf887a973aa6781e9836dc3f2ad6 (diff) | |
| download | gcc-eb83e81102d1770daba45b95ea0f9e5a00c938ae.zip gcc-eb83e81102d1770daba45b95ea0f9e5a00c938ae.tar.gz gcc-eb83e81102d1770daba45b95ea0f9e5a00c938ae.tar.bz2 | |
re PR fortran/20059 (internal compiler error: Segmentation Fault - For common blocks)
fortran/
PR fortran/20059
* trans-common.c (translate_common): Cast offset and
common_segment->offset to type int for warning message.
testsuite/
PR fortran/20059
* gfortran.dg/common_5.f: New test.
From-SVN: r98660
Diffstat (limited to 'gcc/fortran/trans-common.c')
| -rw-r--r-- | gcc/fortran/trans-common.c | 4 |
1 files changed, 2 insertions, 2 deletions
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); |