[交流] 【求助】求主对角元素之和遇到错误，请赐教 已有1人参与

我在练习一函数子程序。                 function crosssum(x,n) result(s)         implicit none         integer n,i         real x(n,n),s         s=0.0         do i=1,n         s=s+x(i,i)         end do         end         program ex618         implicit none         real y(4,4),f(0:24),crosssum         integer i,j         y=reshape(source=(/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/),shape=(/4,4))         f=(/(i,i=1,25)/)         print '(a/(4f6.1))','二维数组y(4,4):',(y(i,,i=1,4)         print *,'y的主对角元素之和=',crosssum(y,4)         print '(a/(5f6.1))','一维数组f(25):',((f(j),j=i,24,5),i=0,4)         print *,'f的主对角元素之和=',crosssum(f,5)         end 编辑后，有一个错误： Error: Syntax error, found END-OF-STATEMENT when expecting one of: , : (/ [ ] /) y=reshape(source=(/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/),shape=(/4,4)) 请问如何修改？谢谢。

回复此楼