test_serialize Subroutine

public subroutine test_serialize()

Arguments

None

Calls

proc~~test_serialize~~CallsGraph proc~test_serialize Test_Attribute::test_serialize asserttrue asserttrue proc~test_serialize->asserttrue none~serialize pFIO_UnlimitedEntityMod::UnlimitedEntity%serialize proc~test_serialize->none~serialize proc~attribute_deserialize pFIO_AttributeMod::Attribute_deserialize proc~test_serialize->proc~attribute_deserialize interface~mapl_assert MAPL_ErrorHandlingMod::MAPL_Assert none~serialize->interface~mapl_assert interface~serialize_buffer_length pFIO_UtilitiesMod::serialize_buffer_length none~serialize->interface~serialize_buffer_length interface~serialize_intrinsic pFIO_UtilitiesMod::serialize_intrinsic none~serialize->interface~serialize_intrinsic none~get_rank pFIO_UnlimitedEntityMod::UnlimitedEntity%get_rank none~serialize->none~get_rank proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return none~serialize->proc~mapl_return proc~attribute_deserialize->proc~mapl_return proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~attribute_deserialize->proc~mapl_verify proc~unlimitedentity_deserialize pFIO_UnlimitedEntityMod::UnlimitedEntity_deserialize proc~attribute_deserialize->proc~unlimitedentity_deserialize none~get_rank->proc~mapl_return none~get_shape pFIO_UnlimitedEntityMod::UnlimitedEntity%get_shape none~get_rank->none~get_shape at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception proc~unlimitedentity_deserialize->interface~mapl_assert proc~unlimitedentity_deserialize->interface~serialize_buffer_length proc~unlimitedentity_deserialize->none~get_rank proc~unlimitedentity_deserialize->proc~mapl_return proc~unlimitedentity_deserialize->proc~mapl_verify interface~deserialize_intrinsic pFIO_UtilitiesMod::deserialize_intrinsic proc~unlimitedentity_deserialize->interface~deserialize_intrinsic none~set pFIO_UnlimitedEntityMod::UnlimitedEntity%set proc~unlimitedentity_deserialize->none~set none~get_shape->proc~mapl_return none~set->proc~mapl_return

Source Code

   subroutine test_serialize()
      type (Attribute) :: a
      type (Attribute) :: b

      integer,allocatable :: buffer(:)

      a = Attribute(10)
      call a%serialize(buffer)
      call Attribute_deserialize(buffer, b)
      @assertTrue(a==b)
      deallocate(buffer)

      a = Attribute([10,20,30])
      call a%serialize(buffer)
      call Attribute_deserialize(buffer, b)
      @assertTrue(a==b)
      deallocate(buffer)

      a = Attribute([.true.,.false.])
      call a%serialize(buffer)
      call Attribute_deserialize(buffer, b)
      @assertTrue(a==b)
      deallocate(buffer)

      a = Attribute('abcd')
      call a%serialize(buffer)
      call Attribute_deserialize(buffer, b)
      @assertTrue(a==b)
      deallocate(buffer)

      a = Attribute('abcdefgh')
      call a%serialize(buffer)
      call Attribute_deserialize(buffer, b)
      @assertTrue(a==b)
      deallocate(buffer)

   end subroutine test_serialize