test_is_valid_month Subroutine

public subroutine test_is_valid_month()

Arguments

None

Calls

proc~~test_is_valid_month~~CallsGraph proc~test_is_valid_month test_is_valid_month assertfalse assertfalse proc~test_is_valid_month->assertfalse asserttrue asserttrue proc~test_is_valid_month->asserttrue is_valid_month is_valid_month proc~test_is_valid_month->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