＜NON_RECURSIVE Example Program＞

Program non_recursive_example
  Print *, ifactorial(5)
End Program
Non_Recursive Integer Function ifactorial( i ) Result( res )
  Integer j
  res = 1
  Do j=2,i
    res = res*j
  End Do
End Function

■ Execution Results

 120