test_is_valid_month Subroutine

public subroutine test_is_valid_month()

Arguments

None

Calls

proc~~test_is_valid_month~2~~CallsGraph proc~test_is_valid_month~2 test_is_valid_month assertfalse assertfalse proc~test_is_valid_month~2->assertfalse asserttrue asserttrue proc~test_is_valid_month~2->asserttrue proc~is_valid_month is_valid_month proc~test_is_valid_month~2->proc~is_valid_month proc~is_between is_between proc~is_valid_month->proc~is_between

Source Code

   subroutine test_is_valid_month()
      integer :: i

      @assertFalse(is_valid_month(0))
      @assertFalse(is_valid_month(-1))
      @assertFalse(is_valid_month(13))
      do i = 1, 12
         @assertTrue(is_valid_month(i))
      end do
   end subroutine test_is_valid_month