test_equal_child_spec_ss_differs Subroutine

public subroutine test_equal_child_spec_ss_differs()

Arguments

None

Calls

proc~~test_equal_child_spec_ss_differs~~CallsGraph proc~test_equal_child_spec_ss_differs test_equal_child_spec_ss_differs assert_that assert_that proc~test_equal_child_spec_ss_differs->assert_that false false proc~test_equal_child_spec_ss_differs->false interface~user_setservices user_setservices proc~test_equal_child_spec_ss_differs->interface~user_setservices

Source Code

   subroutine test_equal_child_spec_ss_differs()
      class(AbstractUserSetServices), allocatable :: ss_A
      class(AbstractUserSetServices), allocatable :: ss_B

      type(ChildSpec) :: cs_a, cs_b
      ss_A = user_setservices('libA', 'setservices_')
      ss_B = user_setservices(gamma)

      cs_a = ChildSpec(ss_A)
      cs_b = ChildSpec(ss_B)

      @assert_that('OPERATOR(==)', cs_a == cs_b, is(false()))

   contains
      subroutine gamma(gc, rc)
         use esmf
         type(ESMF_GridComp) :: gc
         integer, intent(out) :: rc
      end subroutine gamma
      
   end subroutine test_equal_child_spec_ss_differs