diff options
author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-11-16 11:20:57 +0000 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-11-16 11:20:57 +0000 |
commit | 6c0e51c4fad90d1a93040fe92695890b5715d6f5 (patch) | |
tree | e94b68627b7d5bfea3a7ab998e583028c889df1e /libgfortran | |
parent | ecaf6f07808d7d2f5a3929de189d8799e8a085f5 (diff) | |
download | gcc-6c0e51c4fad90d1a93040fe92695890b5715d6f5.zip gcc-6c0e51c4fad90d1a93040fe92695890b5715d6f5.tar.gz gcc-6c0e51c4fad90d1a93040fe92695890b5715d6f5.tar.bz2 |
trans-decl.c (gfc_get_symbol_decl): Fix formatting.
* trans-decl.c (gfc_get_symbol_decl): Fix formatting.
* io/open.c (new_unit): Format %d expects an int variable.
* runtime/error.c (show_locus): Format %d expects an int variable.
From-SVN: r118887
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/io/open.c | 2 | ||||
-rw-r--r-- | libgfortran/runtime/error.c | 2 |
3 files changed, 7 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 57adbe0..e677f3f 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-11-16 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + * io/open.c (new_unit): Format %d expects an int variable. + * runtime/error.c (show_locus): Format %d expects an int variable. + 2006-11-08 Steven G. Kargl <kargl@gcc.gnu.org> * io/read. (max_value): Hide "int n" in an #ifdef. diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 24ce51a..ce7d4dd 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -343,7 +343,7 @@ new_unit (st_parameter_open *opp, gfc_unit *u, unit_flags * flags) break; opp->file = tmpname; - opp->file_len = sprintf(opp->file, "fort.%d", opp->common.unit); + opp->file_len = sprintf(opp->file, "fort.%d", (int) opp->common.unit); break; default: diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c index 245e04e..3f03f03 100644 --- a/libgfortran/runtime/error.c +++ b/libgfortran/runtime/error.c @@ -285,7 +285,7 @@ show_locus (st_parameter_common *cmp) if (!options.locus || cmp == NULL || cmp->filename == NULL) return; - st_printf ("At line %d of file %s\n", cmp->line, cmp->filename); + st_printf ("At line %d of file %s\n", (int) cmp->line, cmp->filename); } |