From 76eeaf82389ca188f55b7a25ce8162c28abb43e5 Mon Sep 17 00:00:00 2001
From: vmagnin <vincent.magnin@libertysurf.fr>
Date: Sat, 30 Oct 2021 15:54:39 +0200
Subject: [PATCH] format f10. needed if p=5

---
 src/taptempo.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/taptempo.f90 b/src/taptempo.f90
index 3964750..63870d5 100644
--- a/src/taptempo.f90
+++ b/src/taptempo.f90
@@ -89,10 +89,10 @@ subroutine measure_tempo
         integer :: i
         real(wp), dimension(s) :: t   ! Time FIFO stack
         integer :: oldest
-        character(len=25) :: fmt
+        character(len=27) :: fmt
 
         ! Format used for printing the tempo:
-        write(fmt, '(A, I1, A)') '("Tempo: ", f8.', p, ', " BPM")'
+        write(fmt, '(A, I1, A)') '("Tempo: ", f10.', p, ', " BPM")'
         ! Stack initialization:
         t = 0