test_get_timezone_offset_field Subroutine

public subroutine test_get_timezone_offset_field()

Arguments

None

Calls

proc~~test_get_timezone_offset_field~~CallsGraph proc~test_get_timezone_offset_field test_get_timezone_offset_field assertequal assertequal proc~test_get_timezone_offset_field->assertequal asserttrue asserttrue proc~test_get_timezone_offset_field->asserttrue is_valid is_valid proc~test_get_timezone_offset_field->is_valid time_fields time_fields proc~test_get_timezone_offset_field->time_fields timezone_offset timezone_offset proc~test_get_timezone_offset_field->timezone_offset

Source Code

   subroutine test_get_timezone_offset_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(tzo, tf % timezone_offset())
   end subroutine test_get_timezone_offset_field