test_is_valid_hour Subroutine

public subroutine test_is_valid_hour()

Arguments

None

Calls

proc~~test_is_valid_hour~~CallsGraph proc~test_is_valid_hour test_is_valid_hour assertfalse assertfalse proc~test_is_valid_hour->assertfalse asserttrue asserttrue proc~test_is_valid_hour->asserttrue proc~is_valid_hour is_valid_hour proc~test_is_valid_hour->proc~is_valid_hour proc~is_between is_between proc~is_valid_hour->proc~is_between

Source Code

   subroutine test_is_valid_hour()
      integer, parameter :: IMIN = 0
      integer, parameter :: IMAX = 23
      integer :: i
      do i= IMIN, IMAX
         @assertTrue(is_valid_hour(i))
      end do
      @assertFalse(is_valid_hour(IMAX+1))
      @assertFalse(is_valid_hour(IMIN-1))
   end subroutine test_is_valid_hour