求大佬帮忙看一下，哪里错了？fortran语言FUNCTIO - codeblocks吧

level 1

求大佬帮忙看一下，哪里错了？ [泪]

fortran语言
FUNCTION SUMS(M,N,K)
SUMS=0
DO I=M,N
SUMS=SUMS+(I－K)**2
END DO
END
MS1=SUMS(1,100,0)
MS2=SUMS(10,100,5)
WRITE(*,100) MS1,MS2
100 FORMAT ("S1
=”,Z8,1X,"S2=",I8)
END

2019年06月18日 03点06分 1

level 12

沉默在哭诉💤

没学过。。。

2019年06月18日 16点06分 2