From d3313f732a0ca56acea34d270961485189674bf0 Mon Sep 17 00:00:00 2001
From: Ralph Castain <rhc@open-mpi.org>
Date: Tue, 18 Aug 2009 21:20:55 +0000
Subject: [PATCH] Flush the mpirun xml tag output to maintain ordering

This commit was SVN r21836.
---
 orte/tools/orterun/orterun.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/orte/tools/orterun/orterun.c b/orte/tools/orterun/orterun.c
index 1b11bd2011..7562a98d7e 100644
--- a/orte/tools/orterun/orterun.c
+++ b/orte/tools/orterun/orterun.c
@@ -569,6 +569,7 @@ int orterun(int argc, char *argv[])
     /* if we are using xml for output, put an mpirun start tag */
     if (orte_xml_output) {
         fprintf(stdout, "<mpirun>\n");
+        fflush(stdout);
     }
     
     /* check for request to report uri */
@@ -901,6 +902,7 @@ static void just_quit(int fd, short ign, void *arg)
     /* if we are using xml output, terminate the output */
     if (orte_xml_output) {
         fprintf(stdout, "</mpirun>\n");
+        fflush(stdout);
     }
     
     free(orterun_basename);