test_construct_system_no_path Subroutine

public subroutine test_construct_system_no_path()

Arguments

None

Calls

proc~~test_construct_system_no_path~~CallsGraph proc~test_construct_system_no_path test_construct_system_no_path assertfalse assertfalse proc~test_construct_system_no_path->assertfalse interface~ut_free_system ut_free_system proc~test_construct_system_no_path->interface~ut_free_system none~get_cptr CptrWrapper%get_cptr proc~test_construct_system_no_path->none~get_cptr none~is_free CptrWrapper%is_free proc~test_construct_system_no_path->none~is_free

Source Code

   subroutine test_construct_system_no_path()
      type(UDSystem) :: wrapper
      
      wrapper = UDSystem()
      @assertFalse(wrapper%is_free(), 'ut_system is not set')
      call ut_free_system(wrapper%get_cptr())

   end subroutine test_construct_system_no_path