test_serialize_buffer_length_int64_0d Subroutine

public subroutine test_serialize_buffer_length_int64_0d()

Arguments

None

Calls

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

Source Code

   subroutine test_serialize_buffer_length_int64_0d()
      integer(kind=INT64) :: i,j,L
      L = 10
      i = L**15
      j = L**16
      @assertEqual(2, serialize_buffer_length(i))
      @assertEqual(2, serialize_buffer_length(j))


   end subroutine test_serialize_buffer_length_int64_0d