From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 2 Sep 2008 01:14:04 +0000 (+0000)
Subject: error.c: Fix cast for printf.
X-Git-Tag: releases/gcc-4.4.0~2713
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=4e2eb53c13c1fc2e3f777fa9cd6827716c6b81e4;p=thirdparty%2Fgcc.git

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 f8083c8dbbdb..8670d461c67a 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 0b9c16705eb5..d75eaf23832b 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;
     }