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

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

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

libgfortran/ChangeLog

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

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:

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