my_subroutine Subroutine

private pure subroutine my_subroutine(this, a)

Type Bound

my_type

Arguments

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

Calls

proc~~my_subroutine~~CallsGraph proc~my_subroutine my_type%my_subroutine proc~my_function my_type%my_function proc~my_subroutine->proc~my_function

Called by

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

Source Code

   pure subroutine my_subroutine(this, a)
      class(my_type), intent(inout) :: this
      integer, intent(in) :: a

#if defined(FOR_DEBUG)
      if (.not. this%err%ok) return
      if (a == 0) then
         call this%err%set(1, 100, "arithmetic/zero-division", "Division by zero, denominator a = 0", debug_loc(__FILE__, 26), "Enforce precondition a /= 0" )
         return
      end if
#endif

      this%b = this%my_function(a)
   end subroutine my_subroutine