Fortran 90/95 stack fault problem

[daveask]

Hi,

How this very simple program can cause error
"floating point stack fault"
It will work fine if I use internal function.

program AddFunc
integer :: n1=23, n2=46
print *, add2f(n1, n2)
end program AddFunc

!contains

integer function add2f(n1, n2)
integer n1, n2
add2f = n1 + n2
end function add2f

!end program AddFunc

 

[xwb]

You need to declare add2f as external in the program otherwise it takes it as an array.