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 a2bc8c814829c7bbe0474971f5dc4969d8679d06..3141d72cdca2e1110fb75170a5ee7fd3c74bb04a 100644 (file)
--- 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 1a916ccf93d1533f1f4c62fa313dc47c98b6bd9b..e44489d510cf05000a62f7d3eb2935a952cae2d8 100644 (file)
--- 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 57adbe0fbdc2766c2b5ca0bcaebd833546a4b8bb..e677f3f5b5c33c14d8af99775d36e409c76e1cd8 100644 (file)
--- 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 24ce51a706411749dd5ea01be90d2acb76f7d6f6..ce7d4dd2cbfd6a867c57240914105950c7c5a924 100644 (file)
--- 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 245e04e31c2da130402b520458a715d6918f92e1..3f03f03f5004f93c61d2683254b4c34482208d1c 100644 (file)
--- 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);
 }