test_problematic_middle_extent Subroutine

public subroutine test_problematic_middle_extent()

Arguments

None

Calls

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

Source Code

   subroutine test_problematic_middle_extent()
      integer, allocatable :: partition(:)
      partition = mapl_GetPartition(9, 5, symmetric=.true., min_extent=2)
      @assertEqual([3,0,3,0,3], partition)

   end subroutine test_problematic_middle_extent