test_get_fptr_shape_noz Subroutine

public subroutine test_get_fptr_shape_noz()

Arguments

None

Calls

proc~~test_get_fptr_shape_noz~~CallsGraph proc~test_get_fptr_shape_noz test_get_fptr_shape_noz assert_that assert_that proc~test_get_fptr_shape_noz->assert_that equal_to equal_to proc~test_get_fptr_shape_noz->equal_to proc~get_fptr_shape_private get_fptr_shape_private proc~test_get_fptr_shape_noz->proc~get_fptr_shape_private interface~mapl_assert MAPL_Assert proc~get_fptr_shape_private->interface~mapl_assert proc~mapl_return MAPL_Return proc~get_fptr_shape_private->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

    subroutine test_get_fptr_shape_noz()
       integer :: expected(ARRAY_RANK), actual(ARRAY_RANK)
       integer, allocatable :: gridToFieldMap(:)
       integer, allocatable :: localElementCount(:)
       logical :: has_vertical

       has_vertical = .FALSE.

       gridToFieldMap = [1, 2]
       localElementCount = [2, 3, 5, 7]
       expected = [product(localElementCount(1:2)), 1, product(localElementCount(3:))]
       actual = get_fptr_shape_private(gridToFieldMap, localElementCount, has_vertical)
       @assert_that(GENERIC_MESSAGE, actual, is(equal_to(expected)))

    end subroutine test_get_fptr_shape_noz