test_construct_time_fields_null Subroutine

public subroutine test_construct_time_fields_null()

Arguments

None

Calls

proc~~test_construct_time_fields_null~~CallsGraph proc~test_construct_time_fields_null test_construct_time_fields_null assertfalse assertfalse proc~test_construct_time_fields_null->assertfalse is_valid is_valid proc~test_construct_time_fields_null->is_valid time_fields time_fields proc~test_construct_time_fields_null->time_fields

Source Code

   subroutine test_construct_time_fields_null()
      type(time_fields) :: tf
      tf = time_fields()
      @assertFalse(tf % is_valid(), 'null tf should not be valid.')
   end subroutine test_construct_time_fields_null