From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 2 Sep 2008 01:14:04 +0000 (+0000)
Subject: 2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=6af0990300148f72170e6b92ad9dacdaabc00eaa

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

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


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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f8083c8dbbd..8670d461c67 100644
--- 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 0b9c16705eb..d75eaf23832 100644
--- 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;
     }