test_serialize_buffer_length_logical_1d Subroutine

public subroutine test_serialize_buffer_length_logical_1d()

Arguments

None

Calls

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

Source Code

   subroutine test_serialize_buffer_length_logical_1d()
      logical :: empty(0)
      
      @assertEqual(1, serialize_buffer_length(empty))
      @assertEqual(2, serialize_buffer_length([.true.]))
      @assertEqual(5, serialize_buffer_length([.true.,.false.,.true.,.false.]))

   end subroutine test_serialize_buffer_length_logical_1d