Question

sublime text2怎么查看函数引用关系

Answer 1

那是因为你没有在函数里面声明那个数组。比如：

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