test_are_valid_time_fields Subroutine

public subroutine test_are_valid_time_fields()

Arguments

None

Calls

proc~~test_are_valid_time_fields~~CallsGraph proc~test_are_valid_time_fields test_are_valid_time_fields assertfalse assertfalse proc~test_are_valid_time_fields->assertfalse asserttrue asserttrue proc~test_are_valid_time_fields->asserttrue is_valid is_valid proc~test_are_valid_time_fields->is_valid time_fields time_fields proc~test_are_valid_time_fields->time_fields

Source Code

   subroutine test_are_valid_time_fields
      type(time_fields) :: tf
      tf = time_fields(13, 43, 37, 100, 0)
      @assertTrue(tf % is_valid(), 'tf should be valid.')
      tf = time_fields(13, 63, 37, 100, 0)
      @assertFalse(tf % is_valid(), 'tf should not be valid.')
   end subroutine test_are_valid_time_fields