RESULT

Keyword: Specifies a name for a function result.

Normally, a function result is returned in the function's name, and all references to the function name are references to the function result.

However, if you use the RESULT keyword in a FUNCTION statement, you can specify a local variable name for the function result. In this case, all references to the function name are recursive calls, and the function name must not appear in specification statements.

The RESULT name must be different from the name of the function.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: FUNCTION, ENTRY, RECURSIVE, Program Units and Procedures

Examples

The following shows an example of a recursive function specifying a RESULT variable:

  RECURSIVE FUNCTION FACTORIAL(P) RESULT(L)
    INTEGER, INTENT(IN) :: P
    INTEGER L
    IF (P == 1) THEN
      L = 1
    ELSE
      L = P * FACTORIAL(P - 1)
    END IF
  END FUNCTION

The following shows another example:

  recursive function FindSame(Aindex,Last,Used) &
 &  result(FindSameResult)
  type(card) Last
  integer Aindex, i
  logical matched, used(5)
  if( Aindex > 5 ) then
    FindSameResult = .true.
    return
  endif
  . . .