test_get_second_field Subroutine

public subroutine test_get_second_field()

Arguments

None

Calls

proc~~test_get_second_field~~CallsGraph proc~test_get_second_field test_get_second_field assertequal assertequal proc~test_get_second_field->assertequal asserttrue asserttrue proc~test_get_second_field->asserttrue is_valid is_valid proc~test_get_second_field->is_valid time_fields time_fields proc~test_get_second_field->time_fields

Source Code

   subroutine test_get_second_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(s, tf % second())
   end subroutine test_get_second_field