From 89e3e989ca61ab7fc428fc5a9415f89ecda779c3 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Mon, 28 Aug 2017 21:09:44 +0000
Subject: [PATCH] Fix a potential array bounds issue in osd174.f90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8040 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/fsk4hf/osd174.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/fsk4hf/osd174.f90 b/lib/fsk4hf/osd174.f90
index e29fddfdc..f3d1403b8 100644
--- a/lib/fsk4hf/osd174.f90
+++ b/lib/fsk4hf/osd174.f90
@@ -200,7 +200,7 @@ if(npre2.eq.1) then
    do i1=K,1,-1
       do i2=i1-1,1,-1
          ntotal=ntotal+1
-         mi=ieor(g2(K+1:K+ntau,i1),g2(K+1:K+ntau,i2))
+         mi(1:ntau)=ieor(g2(K+1:K+ntau,i1),g2(K+1:K+ntau,i2))
          call boxit(reset,mi(1:ntau),ntau,ntotal,i1,i2)
       enddo
    enddo