initialize Subroutine

private subroutine initialize(this, n)

Type Bound

unit_tests

Arguments

Type IntentOptional Attributes Name
class(unit_tests), intent(inout) :: this
integer, intent(in) :: n

Calls

proc~~initialize~~CallsGraph proc~initialize unit_tests%initialize proc~set_silent unit_test%set_silent proc~initialize->proc~set_silent

Called by

proc~~initialize~~CalledByGraph proc~initialize unit_tests%initialize program~demo_forunittest demo_forunittest program~demo_forunittest->proc~initialize program~test2 test2 program~test2->proc~initialize

Source Code

   subroutine initialize(this, n)
      class(unit_tests), intent(inout) :: this
      integer, intent(in) :: n
      this%n = n
      allocate(this%test(this%n))
      call this%test(:)%set_silent()
   end subroutine initialize