Fortran溢出算法

Question

我需要知道，我的溢出算法有什么问题？在Fortran中，我必须执行一种算法，以在返回溢出中断时返回增量“n”的数量。

program overflow 

    integer::n,i,fact; 

    fact = 1; 
    n = 50; 

    do i=1,n,1 
    fact=fact*i; 
    if ((fact==abs(fact)).and.(fact /= 0)) then 
     print*,"F!=",fact; 
     n=n+1; 
     !print*,"Overflow=",n; 
    end if; 
    end do; 

    print*,n; 

end program overflow 

它包含负值，而“突变”的阶乘之前到达，意思是“溢出”的数量，但它是假的，正应该是15

Answer 1

我从来就不是一个Fortran的程序员，但也许你的回报值应该是双倍的。