From 2c3f2e365d100476a494352fa3f8a848cd05af15 Mon Sep 17 00:00:00 2001 From: Joost VandeVondele Date: Wed, 24 Dec 2014 07:50:17 +0000 Subject: [PATCH] flush after printing the stack svn-origin-rev: 14888 --- src/common/timings.F | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/common/timings.F b/src/common/timings.F index 424649e7e0..7aaa4fd071 100644 --- 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 ! *****************************************************************************