test_get_minute_field Subroutine

public subroutine test_get_minute_field()

Arguments

None

Calls

proc~~test_get_minute_field~~CallsGraph proc~test_get_minute_field test_get_minute_field assertequal assertequal proc~test_get_minute_field->assertequal asserttrue asserttrue proc~test_get_minute_field->asserttrue is_valid is_valid proc~test_get_minute_field->is_valid minute minute proc~test_get_minute_field->minute time_fields time_fields proc~test_get_minute_field->time_fields

Source Code

   subroutine test_get_minute_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(m, tf % minute())
   end subroutine test_get_minute_field