test_serialize_buffer_length_int64_1d Subroutine

public subroutine test_serialize_buffer_length_int64_1d()

Arguments

None

Calls

proc~~test_serialize_buffer_length_int64_1d~~CallsGraph proc~test_serialize_buffer_length_int64_1d test_serialize_buffer_length_int64_1d assertequal assertequal proc~test_serialize_buffer_length_int64_1d->assertequal interface~serialize_buffer_length serialize_buffer_length proc~test_serialize_buffer_length_int64_1d->interface~serialize_buffer_length

Source Code

   subroutine test_serialize_buffer_length_int64_1d()
      integer(kind=INT64) :: empty(0)
      integer(kind=INT64) :: i,j,k,l,m
      m = 10
      i = m**14; j = i+1; k = i+2; l = i+3
      @assertEqual(1, serialize_buffer_length(empty))
      @assertEqual(3, serialize_buffer_length([i]))
      @assertEqual(9, serialize_buffer_length([i,j,k,l]))


   end subroutine test_serialize_buffer_length_int64_1d