test_get_millisecond_field Subroutine

public subroutine test_get_millisecond_field()

Arguments

None

Calls

proc~~test_get_millisecond_field~~CallsGraph proc~test_get_millisecond_field test_get_millisecond_field assertequal assertequal proc~test_get_millisecond_field->assertequal asserttrue asserttrue proc~test_get_millisecond_field->asserttrue is_valid is_valid proc~test_get_millisecond_field->is_valid millisecond millisecond proc~test_get_millisecond_field->millisecond time_fields time_fields proc~test_get_millisecond_field->time_fields

Source Code

   subroutine test_get_millisecond_field
      type(time_fields) :: tf
      integer :: h = 13, m = 43, s = 37, ms = 100, tzo = 0
      tf = time_fields(h, m, s, ms, tzo)
      @assertTrue(tf % is_valid(), 'Failed to initialize tf')
      @assertEqual(ms, tf % millisecond())
   end subroutine test_get_millisecond_field