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 689d8a7042afff986f56997e9218f6220e7a1d08..4db1e20a32f3ce02f9cefc52ebdec4eb78f33b18 100644 (file)
--- 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 4bfcbb50832d15af19c646f61c71384c1ced408c..ea4c0f05c27347d5fd2dde55e0c96d99ddf4b125 100644 (file)
--- 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 2258f2f3d016909e441ed64068abaa7b2afbb323..09cc62f1f583b2aa0defb749054129a3388101e4 100644 (file)
--- 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");