Question

fortran77关于do和if goto的问题

我学过fortran90，现在手头上有个程序是77的。对于goto语句让我很烦恼。现在有这样一个问题,这个代码可以正常输出吗？当i=10的时候，依然满足if 的条件，然后就跳回do 30，然后就死循环了
sum=0
do 30 i=1,10
sum=sum+i
if (i.LT.20) goto 30
30 continue
print*,sum

Answer 1

        sum=0
        do 30 i=1,10
        sum=sum+i
        if (i.LT.20) goto 30
30      continue
        print*,sum
        
略作修改，但和你的程序等价：
        sum=0
        do 30 i=1,10
        sum=sum+i
        if (i.LT.20) goto 30
30      continue
        write(*,*)sum
	end      
	
	－－－－可以正常运行，结果为55。 只是你这个if语句完全可以删除！
	
        sum=0
        do 30 i=1,10
        sum=sum+i
c        if (i.LT.20) goto 30
30      continue
        write(*,*)sum
        end	  
        
        －－－－结果也是55