test_get_i4_not_found_no_default Subroutine

public subroutine test_get_i4_not_found_no_default()

Arguments

None

Calls

proc~~test_get_i4_not_found_no_default~~CallsGraph proc~test_get_i4_not_found_no_default test_get_i4_not_found_no_default assertfalse assertfalse proc~test_get_i4_not_found_no_default->assertfalse interface~get_value get_value proc~test_get_i4_not_found_no_default->interface~get_value

Source Code

   subroutine test_get_i4_not_found_no_default()
      character(len=*), parameter :: LABEL = 'inv_alpha'
      integer(kind=I4) :: actual
      type(HConfigParams) :: params
      logical :: found
      integer :: status_

      params = HConfigParams(hconfig, LABEL)
      call get_value(params, actual, rc=status_)
      found = params%value_set
      @assertFalse(status_ == 0, 'get_value should have failed.')

   end subroutine test_get_i4_not_found_no_default