diff --git a/lib/wqencode.f90 b/lib/wqencode.f90
index 3ca87f310..371e6a7d0 100644
--- a/lib/wqencode.f90
+++ b/lib/wqencode.f90
@@ -59,8 +59,6 @@ subroutine wqencode(msg,ntype,data0)
      n2=128*ih + ntype + 64
      call pack50(n1,n2,data0)
   endif
-  go to 900
 
-900 continue
   return
 end subroutine wqencode