diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90 index 7869527d7..5acc15f52 100644 --- a/lib/q65_decode.f90 +++ b/lib/q65_decode.f90 @@ -341,8 +341,7 @@ contains endif endif enddo ! icand - if(iavg.eq.0 .and.navg(iseq).ge.2) go to 50 - + if(iavg.eq.0 .and.navg(iseq).ge.2 .and. iand(ndepth,16).ne.0) go to 50 900 return end subroutine decode