Correct the false-decode test in test_q65.

2020-11-03 17:17:21 -05:00 · 2020-11-03 17:17:21 -05:00 · 145ddb8821
parent 860b0ce21e
commit 145ddb8821
1 changed files with 1 additions and 1 deletions
--- a/lib/test_q65.f90
+++ b/lib/test_q65.f90
@ -109,7 +109,7 @@ program test_q65
        if(index(line,'<Decode').eq.1) cycle
        read(line(11:20),*) xdt,nf
        if(ntrperiod.ge.60) xdt=xdt-0.5              !### TEMPORARY ###
-        decok=index(line,'K1ABC W9XYZ EN37').gt.0
+        decok=index(line,trim(msg)).gt.0
        if((abs(xdt-dt).le.dterr .and. abs(nf-nf0).le.nferr) .or. decok) then
           nsync=nsync+1
        endif