test_is_valid_second Subroutine

public subroutine test_is_valid_second()

Arguments

None

Calls

proc~~test_is_valid_second~2~~CallsGraph proc~test_is_valid_second~2 test_is_valid_second assertfalse assertfalse proc~test_is_valid_second~2->assertfalse asserttrue asserttrue proc~test_is_valid_second~2->asserttrue is_valid_second is_valid_second proc~test_is_valid_second~2->is_valid_second

Source Code

   subroutine test_is_valid_second()
      integer, parameter :: IMIN = 0
      integer, parameter :: IMAX = 60
      integer :: i
      do i= IMIN, IMAX
         @assertTrue(is_valid_second(i))
      end do
      @assertFalse(is_valid_second(IMAX+1))
      @assertFalse(is_valid_second(IMIN-1))
   end subroutine test_is_valid_second