test_uneven_partition Subroutine

public subroutine test_uneven_partition()

Arguments

None

Calls

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

Source Code

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

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