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