[数值问题] F77的write问题(本来应该是0，但是显示成了2130567168)

        PROGRAM SUM
        IMPLICIT NONE
        INTEGER SUMARR             ! FUNCTION的声明
        INTEGER N,S,A(3)
        N=3
        READ *,A
        S=SUMARR(A,N)                ! 调用自定义FUNCTION
        WRITE(6,10) S
10        FORMAT(1X,'SUM OF THE ARRAY ELEMENTS: ',I10)  !不管输入是多少，程序的输出总是 213056**** 这种类型的10位数字
        ENDPROGRAM SUM

        INTEGER FUNCTION SUMARR(A,N)      ! FUNCTION定义
        IMPLICIT NONE
        INTEGER I,N,A(N)
        DO I=1,N
                SUMARR=SUMARR+A(I)
        ENDDO
C        PRINT *,''                       ! 如果这一行由注释变成可执行语句，程序的求和会正常输出，比如输入1,1,1, 就会输出3；如果这行作为注释行，输入0,0,0，得到的结果是2130567168
        RETURN
        END

        PROGRAM SUM
        IMPLICIT NONE
        INTEGER SUMARR             
        INTEGER N,S,A(3)
        N=3
        READ *,A
        S=SUMARR(A,N)             
        WRITE(6,10) S
10        FORMAT(1X,'SUM OF THE ARRAY ELEMENTS: ',I10) 
        ENDPROGRAM SUM

        INTEGER FUNCTION SUMARR(A,N)    
        IMPLICIT NONE
        INTEGER I,N,A(N)
        SUMARR = 0 !!!!!!!!!!!******这一句非常重要
        DO I=1,N
                SUMARR=SUMARR+A(I)
        ENDDO
C        PRINT *,''                   
        RETURN
        END