From: Daniel Carrera <dcarrera@gmail.com>
Date: Fri, 15 Jul 2011 22:39:03 +0000 (+0000)
Subject: mpi.c (caf_runtime_error): Change fprintf to vfprintf.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c0f1579204b7e7eed3fff3bfa174c53032f420a4;p=gcc.git

mpi.c (caf_runtime_error): Change fprintf to vfprintf.

2011-07-15  Daniel Carrera  <dcarrera@gmail.com>

	* caf/mpi.c (caf_runtime_error): Change fprintf to vfprintf.
	* caf/single.c (caf_runtime_error): Ditto.

From-SVN: r176340
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 689d8a7042a..4db1e20a32f 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-15  Daniel Carrera  <dcarrera@gmail.com>
+
+	* caf/mpi.c (caf_runtime_error): Change fprintf to vfprintf.
+	* caf/single.c (caf_runtime_error): Ditto.
+
 2011-07-14  Daniel Carrera  <dcarrera@gmail.com>
 
 	* caf/single.c:  Include stdarg.h header.
diff --git a/libgfortran/caf/mpi.c b/libgfortran/caf/mpi.c
index 4bfcbb50832..ea4c0f05c27 100644
--- a/libgfortran/caf/mpi.c
+++ b/libgfortran/caf/mpi.c
@@ -54,7 +54,7 @@ caf_runtime_error (const char *message, ...)
   va_list ap;
   fprintf (stderr, "Fortran runtime error on image %d: ", caf_this_image);
   va_start (ap, message);
-  fprintf (stderr, message, ap);
+  vfprintf (stderr, message, ap);
   va_end (ap);
   fprintf (stderr, "\n");
 
diff --git a/libgfortran/caf/single.c b/libgfortran/caf/single.c
index 2258f2f3d01..09cc62f1f58 100644
--- a/libgfortran/caf/single.c
+++ b/libgfortran/caf/single.c
@@ -48,7 +48,7 @@ caf_runtime_error (const char *message, ...)
   va_list ap;
   fprintf (stderr, "Fortran runtime error: ");
   va_start (ap, message);
-  fprintf (stderr, message, ap);
+  vfprintf (stderr, message, ap);
   va_end (ap);
   fprintf (stderr, "\n");