Re: Syntax for passing an external function into a contained function?

Still get the unresolved external. (Apologes for the real*8...) I
have now:

main.for
external ftest
call sub1(ftest)
end

sub1.for
subroutine sub1(func)
real*8 func
x = func1(n)
...
contains
real*8 function func1(n)
real*8, external :: func
func1 = func(n)
return
end

ftest.for
real*8 function ftest(n)
ftest = ...
return
end

and I get:
stest2: error LNK2019: unresolved external symbol _FUNC referenced
in function _SUB1._FUNC1

.

Relevant Pages