From 6c0e51c4fad90d1a93040fe92695890b5715d6f5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fran=C3=A7ois-Xavier=20Coudert?= Date: Thu, 16 Nov 2006 11:20:57 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 28 ++++++++++++++++------------ gcc/fortran/trans-decl.c | 4 +--- libgfortran/ChangeLog | 5 +++++ libgfortran/io/open.c | 2 +- libgfortran/runtime/error.c | 2 +- 5 files changed, 24 insertions(+), 17 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a2bc8c81482..3141d72cdca 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,16 +1,20 @@ +2006-11-16 Francois-Xavier Coudert + + * trans-decl.c (gfc_get_symbol_decl): Fix formatting. + 2006-11-15 Brooks Moses - - * data.c: Remove trailing periods from error messages. - * decl.c: Likewise. - * expr.c: Likewise. - * io.c: Likewise. - * match.c: Likewise. - * module.c: Likewise. - * options.c: Likewise. - * resolve.c: Likewise. - * symbol.c: Likewise. - * trans-io.c: Likewise. - + + * data.c: Remove trailing periods from error messages. + * decl.c: Likewise. + * expr.c: Likewise. + * io.c: Likewise. + * match.c: Likewise. + * module.c: Likewise. + * options.c: Likewise. + * resolve.c: Likewise. + * symbol.c: Likewise. + * trans-io.c: Likewise. + 2006-11-15 Brooks Moses * lang.opt: Rearrange entries back into ASCII order. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 1a916ccf93d..e44489d510c 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1008,9 +1008,7 @@ gfc_get_symbol_decl (gfc_symbol * sym) sym->backend_decl = decl; if (sym->attr.assign) - { - gfc_add_assign_aux_vars (sym); - } + gfc_add_assign_aux_vars (sym); if (TREE_STATIC (decl) && !sym->attr.use_assoc) { diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 57adbe0fbdc..e677f3f5b5c 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-11-16 Francois-Xavier Coudert + + * 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 * io/read. (max_value): Hide "int n" in an #ifdef. diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 24ce51a7064..ce7d4dd2cbf 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 245e04e31c2..3f03f03f500 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); }