test_less2 Subroutine

public subroutine test_less2()

Arguments

None

Calls

proc~~test_less2~~CallsGraph proc~test_less2 test_less2 assert_that assert_that proc~test_less2->assert_that false false proc~test_less2->false none~add_comp_name VirtualConnectionPt%add_comp_name proc~test_less2->none~add_comp_name true true proc~test_less2->true

Source Code

   subroutine test_less2()
      type(VirtualConnectionPt) :: v_pt_0, v_pt_1, v_pt_2

      v_pt_0 = VirtualConnectionPt(ESMF_STATEINTENT_IMPORT, short_name='A')
      v_pt_1 = v_pt_0%add_comp_name('A')
      v_pt_2 = v_pt_0%add_comp_name('B')

      ! Identical
      @assert_that((v_pt_1 < v_pt_1), is(false()))
      @assert_that((v_pt_2 < v_pt_2), is(false()))
      ! Different
      @assert_that((v_pt_1 < v_pt_2), is(true()))
      @assert_that((v_pt_2 < v_pt_1), is(false()))

   end subroutine test_less2