From adb7dfcac352412fa6869bd0bdaeffe3233b8633 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 21 Feb 2020 09:52:20 -0500
Subject: [PATCH] Satisfy fussy compilers like gcc 10: Type mismatch between
 actual argument at (1) and actual argument at (2)

---
 lib/ft8/filt8.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8/filt8.f90 b/lib/ft8/filt8.f90
index aeacf2a74..abe797ba7 100644
--- a/lib/ft8/filt8.f90
+++ b/lib/ft8/filt8.f90
@@ -9,7 +9,7 @@ subroutine filt8(f0,nslots,width,wave)
   equivalence (x,cx)
 
   x=wave
-  call four2a(x,NFFT,1,-1,0)              !r2c
+  call four2a(cx,NFFT,1,-1,0)              !r2c
   df=12000.0/NFFT
   fa=f0 - 0.5*6.25
   fb=f0 + 7.5*6.25 + (nslots-1)*60.0