OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-decl.c (gfc_get_symbol_decl): Fix formatting.

Browse Source 
* 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
This commit is contained in:
François-Xavier Coudert 2006-11-16 11:20:57 +00:00
parent ecaf6f0780
commit 6c0e51c4fa
5 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gcc/fortran/ChangeLog
View File

@ -1,16 +1,20 @@
2006-11-16 Francois-Xavier Coudert <fxcoudert@gcc.gnu,org>
* trans-decl.c (gfc_get_symbol_decl): Fix formatting.
2006-11-15 Brooks Moses <brooks.moses@codesourcery.com>
* 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 <brooks.moses@codesourcery.com>
* lang.opt: Rearrange entries back into ASCII order.

4
gcc/fortran/trans-decl.c
View File

@ -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)
{

5
libgfortran/ChangeLog
View File

@ -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.

2
libgfortran/io/open.c
View File

@ -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:

2
libgfortran/runtime/error.c
View File

@ -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);
}