From 96c00b83efee36af986777b823c79938297ca17d Mon Sep 17 00:00:00 2001
From: Matthieu Volat <mazhe@alkumuna.eu>
Date: Tue, 23 May 2017 19:12:20 +0200
Subject: [PATCH] Flush output of energy tests.

That'll ensure in order output.
---
 examples/smpi/energy/f77/sef.f     | 2 ++
 examples/smpi/energy/f90/sef90.f90 | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/examples/smpi/energy/f77/sef.f b/examples/smpi/energy/f77/sef.f
index b4aba21ddc..4cbc5a3643 100644
--- a/examples/smpi/energy/f77/sef.f
+++ b/examples/smpi/energy/f77/sef.f
@@ -53,6 +53,8 @@
      &         rank, ']',' Energy consumed (Joules): ', e
       end do
 
+      flush(6)
+
       call MPI_Finalize(ierr)
       if (ierr .ne. MPI_SUCCESS) then
          print *, 'MPI_Finalize failed:', ierr
diff --git a/examples/smpi/energy/f90/sef90.f90 b/examples/smpi/energy/f90/sef90.f90
index ebd5485a69..e4f04a3c1b 100644
--- a/examples/smpi/energy/f90/sef90.f90
+++ b/examples/smpi/energy/f90/sef90.f90
@@ -52,6 +52,8 @@ program main
     rank, '] Energy consumed (Joules): ', e
   end do
 
+  flush(6)
+
   call MPI_Finalize(ierr)
   if (ierr .ne. MPI_SUCCESS) then
      print *, 'MPI_Finalize failed:', ierr
-- 
2.20.1