Fix compiler warning message.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2739 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2025-03-21 03:28:59 -04:00 · 2012-11-16 15:49:09 +00:00 · 2012-11-16 15:49:09 +00:00 · 16310339da
commit 16310339da
parent fc24f7b63f
1 changed files with 1 additions and 0 deletions
--- a/lib/packmsg.f
+++ b/lib/packmsg.f
@ -10,6 +10,7 @@
      logical text1,text2,text3

 C  Convert all letters to upper case
+      iz=22
      do i=1,22
         if(msg(i:i).ge.'a' .and. msg(i:i).le.'z') 
     +     msg(i:i)= char(ichar(msg(i:i))+ichar('A')-ichar('a'))