test_trivial_partition Subroutine

public subroutine test_trivial_partition()

Arguments

None

Calls

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

Source Code

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

      partition = mapl_GetPartition(4, 1)

      @assertEqual([4], partition)

   end subroutine test_trivial_partition