From f003ae653c6ae52619ee84534ea374680102a3de Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 7 Jan 2021 12:00:11 -0500
Subject: [PATCH] Silence 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 ed718a664..f83fa4806 100644
--- a/lib/qra/q65/q65_sync.f90
+++ b/lib/qra/q65/q65_sync.f90
@@ -326,6 +326,7 @@ subroutine q65_dec2(s3,nsubmode,b90ts,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 dat4(13)
   character c77*77,decoded*37