関数名を引数に使いたいのですが、ＥＸＴＥＲＮＡＬ文を呼び出し側で使っても
うまくいきません。
下のプログラムなのですが、何処が間違っているんでしょう？

External func
real func,SUM
write(*,*) SUM(func)
end

real Function SUM(f)
External func
real f
SUM = f(1.0)+f(2.0)
return
end

real Function func(x)
real x
func = x
return
end