flush after printing the stack

svn-origin-rev: 14888
vagabond92 · Dec 24, 2014 · 2c3f2e3 · 2c3f2e3
1 parent 036a201
commit 2c3f2e3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/common/timings.F b/src/common/timings.F
@@ -424,6 +424,8 @@ SUBROUTINE print_stack(unit_nr)
        r_stat => list_get(timer_env%routine_stats, cs_entry%routine_id)
        WRITE (unit_nr, '(T10,I4,1X,A)') i, TRIM(r_stat%routineN)
     END DO
+    CALL m_flush(unit_nr)
+
   END SUBROUTINE print_stack
 
 ! *****************************************************************************