my_function Function

private pure function my_function(this, a) result(b)

Type Bound

my_type

Arguments

Type IntentOptional Attributes Name
class(my_type), intent(in) :: this
integer, intent(in) :: a

Return Value integer


Called by

proc~~my_function~~CalledByGraph proc~my_function my_type%my_function proc~my_subroutine my_type%my_subroutine proc~my_subroutine->proc~my_function program~complex complex program~complex->proc~my_subroutine

Source Code

   pure function my_function(this, a) result(b)
      class(my_type), intent(in) :: this
      integer, intent(in) :: a
      integer :: b

#if defined(FOR_DEBUG)
      if (.not. this%err%ok) then
         b = 0
         return
      end if
#endif

      b = 2 / a
   end function my_function