Fixed a bug: 'oldest' should be an integer

vmagnin · Oct 30, 2021 · 53cb1df · 53cb1df
1 parent 8929896
commit 53cb1df
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/taptempo.f90 b/src/taptempo.f90
@@ -87,7 +87,7 @@ subroutine measure_tempo
  real(wp) :: rate ! Number of clock ticks per second
  integer :: i
  real(wp), dimension(s) :: t ! Time FIFO stack
- real(wp) :: oldest
+ integer :: oldest
  character(len=25) :: fmt
 
  ! Format used for printing the tempo: