From: François-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Thu, 16 Nov 2006 11:20:57 +0000 (+0000)
Subject: trans-decl.c (gfc_get_symbol_decl): Fix formatting.
X-Git-Tag: releases/gcc-4.3.0~8436
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6c0e51c4fad90d1a93040fe92695890b5715d6f5;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index a2bc8c814829..3141d72cdca2 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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.
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 1a916ccf93d1..e44489d510cf 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 57adbe0fbdc2..e677f3f5b5c3 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 24ce51a70641..ce7d4dd2cbfd 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 245e04e31c2d..3f03f03f5004 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);
 }