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 is_valid_month is_valid_month proc~test_is_valid_month~2->is_valid_month

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