test_serialize_buffer_length_real_1d Subroutine

public subroutine test_serialize_buffer_length_real_1d()

Arguments

None

Calls

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

Source Code

   subroutine test_serialize_buffer_length_real_1d()
      real :: empty(0)
      
      @assertEqual(1, serialize_buffer_length(empty))
      @assertEqual(2, serialize_buffer_length([1.0]))
      @assertEqual(5, serialize_buffer_length([1.0,2.0,3.0,4.0]))

   end subroutine test_serialize_buffer_length_real_1d