fortran函数问题

那是因为你没有在函数里面声明那个数组.比如：
program main
integer,dimension(3)::a
integer::s,sum1
s=sum1(a)
end

function sum1(a)
integer,dimension(3)::a ! 必须有这一句
sum1=a(1)+a(2)+a(3)
end function sum1
或者像楼上说的,用module.
module aa
integer,dimension(3)::a
end module aa
program main
use aa
integer::s,sum1
s=sum1(a)
end

function sum1(a)
use aa ! 必须有这一句
sum1=a(1)+a(2)+a(3)
end function sum1