error.c: Fix cast for printf.

2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* runtime/error.c: Fix cast for printf.

From-SVN: r139880

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f8083c8dbbdb605644793d8c85abf3ced9f1e069..8670d461c67afa515f024bf9f78de6bcb60852d9 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       * runtime/error.c: Fix cast for printf.
+
 2008-08-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libfortran/36895

diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c
index 0b9c16705eb5d44c6efd78765f9638a591f24158..d75eaf23832b16746b8bc9015a8ecee345b0e543 100644 (file)
--- a/libgfortran/runtime/error.c
+++ b/libgfortran/runtime/error.c
@@ -199,13 +199,13 @@ show_locus (st_parameter_common *cmp)
       if (filename != NULL)
        {
          st_printf ("At line %d of file %s (unit = %d, file = '%s')\n",
-                  (int) cmp->line, cmp->filename, cmp->unit, filename);
+                  (int) cmp->line, cmp->filename, (int) cmp->unit, filename);
          free_mem (filename);
        }
       else
        {
          st_printf ("At line %d of file %s (unit = %d)\n",
-                  (int) cmp->line, cmp->filename, cmp->unit);
+                  (int) cmp->line, cmp->filename, (int) cmp->unit);
        }
       return;
     }