Function result not set

A FORTRAN function has failed or may fail to specify a return value on all execution paths.

ID	Code Location	Description
1	Definition	The place where the function was defined

Example

          
integer function mysub(i)
integer :: i
if (i .lt. 0) mysub = i
end

integer :: mysub
print *, mysub(2), mysub(-2)
end