OSDN Git Service

* trans-decl.c (gfc_get_symbol_decl): Fix formatting.
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 16 Nov 2006 11:20:57 +0000 (11:20 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 16 Nov 2006 11:20:57 +0000 (11:20 +0000)
* io/open.c (new_unit): Format %d expects an int variable.
* runtime/error.c (show_locus): Format %d expects an int variable.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118887 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-decl.c
libgfortran/ChangeLog
libgfortran/io/open.c
libgfortran/runtime/error.c

index a2bc8c8..3141d72 100644 (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.
index 1a916cc..e44489d 100644 (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)
     {
index 57adbe0..e677f3f 100644 (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.
index 24ce51a..ce7d4dd 100644 (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:
index 245e04e..3f03f03 100644 (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);
 }