Silence a compiler warning.

2026-06-12 18:58:43 -04:00 · 2021-01-06 10:58:25 -05:00
parent c7f2be4ba7
commit aee0a1e851
1 changed files with 1 additions and 0 deletions
@@ -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)