diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90
index 64fc207dd..38e8a15bb 100644
--- a/lib/fst4_decode.f90
+++ b/lib/fst4_decode.f90
@@ -630,7 +630,7 @@ contains
          close(42)
       endif
 
-900   return
+      return
    end subroutine decode
 
    subroutine sync_fst4(cd0,i0,f0,hmod,ncoh,np,nss,ntr,fs,sync)
diff --git a/map65/libm65/gen_q65_wave.f90 b/map65/libm65/gen_q65_wave.f90
index 746bf12ef..a3a4327f1 100644
--- a/map65/libm65/gen_q65_wave.f90
+++ b/map65/libm65/gen_q65_wave.f90
@@ -11,7 +11,6 @@ subroutine gen_q65_wave(msg,ntxfreq,mode65,msgsent,iwave,nwave)
   character*16 cjunk
   real*8 t,dt,phi,f,f0,dfgen,dphi,twopi,tsym
   integer itone(85)
-  integer sent(63)
   integer*2 iwave(NMAX)
   integer icos7(0:6)
   logical first
diff --git a/map65/libm65/m65a.f90 b/map65/libm65/m65a.f90
index 21ea4019d..5ef3c986c 100644
--- a/map65/libm65/m65a.f90
+++ b/map65/libm65/m65a.f90
@@ -6,7 +6,7 @@ subroutine m65a
      end function address_m65
   end interface
   
-  integer*1 attach_m65,lock_m65,unlock_m65
+  integer*1 attach_m65
   integer size_m65
   integer*1, pointer :: p_m65
   character*80 cwd
@@ -60,7 +60,6 @@ subroutine m65b(m65com,nbytes)
 end subroutine m65b
 
 subroutine m65c(dd,ss,savg,nparams0)
-  integer*1 detach_m65
   real*4 dd(4,5760000),ss(4,322,32768),savg(4,32768)
   real*8 fcenter
   integer nparams0(40),nparams(40)