各位大侠：
    我需要用一个循环程序，当早某一满足一定的条件时即跳出循环，但是总是显示循环没有完成而无法编译。我的程序如下：
    PROGRAM main
     IMPLICIT NONE
     integer::i,j
     real::K4,K5
     real,dimension(1:10)::KK
     KK=(/1,2,3,4,4,4,4,4,4,5/)
     do i=1,8
        K4=maxval(abs(KK(i:i+2))) !我的想法是找到最先出现4放入位置
        K5=minval(abs(kk(i:i+2)))
        if(K4.EQ.K5)j=i;cycle   
     end

编译错误：:\Fortran-Program\wwp.f90(7) : Error: An unterminated block exists.
     do i=1,8
^
Error executing df.exe.

请问这是什么原因呢？是我的思路有问题还是语法错误？
以前一直用的是matlab，由于要进行大量的计算，matlab算的速度太慢了，所以转向Fortran了，请各位大侠帮帮小弟啊！！感激不尽啊！