test_min_extent Subroutine

public subroutine test_min_extent()

Arguments

None

Calls

proc~~test_min_extent~~CallsGraph proc~test_min_extent test_min_extent assertequal assertequal proc~test_min_extent->assertequal interface~mapl_getpartition mapl_GetPartition proc~test_min_extent->interface~mapl_getpartition

Source Code

   subroutine test_min_extent()
      integer, allocatable :: partition(:)

      partition = mapl_GetPartition(5, k=3, min_extent=2)
      @assertEqual([3,2,0], partition)
      
   end subroutine test_min_extent