From 145ddb88210b66523ff49b207fabdb7e4788eb21 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 3 Nov 2020 17:17:21 -0500
Subject: [PATCH] Correct the false-decode test in test_q65.

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

diff --git a/lib/test_q65.f90 b/lib/test_q65.f90
index ead15b013..1191069a6 100644
--- 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