From aee0a1e851f54d4ea454840dcc7bd0161d57d9a9 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 6 Jan 2021 10:58:25 -0500 Subject: [PATCH] Silence a compiler warning. --- lib/qra/q65/q65_sync.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/qra/q65/q65_sync.f90 b/lib/qra/q65/q65_sync.f90 index 892f60c78..ee0e28794 100644 --- a/lib/qra/q65/q65_sync.f90 +++ b/lib/qra/q65/q65_sync.f90 @@ -299,6 +299,7 @@ subroutine q65_dec1(s3,nsubmode,b90ts,codewords,ncw,esnodb,irc,dat4,decoded) use q65 use packjt77 + real s3(1,1) !Silence compiler warning that wants to see a 2D array real s3prob(0:63,63) !Symbol-value probabilities integer codewords(63,206) integer dat4(13)