test_is_whole_number Subroutine

public subroutine test_is_whole_number()

Arguments

None

Calls

proc~~test_is_whole_number~2~~CallsGraph proc~test_is_whole_number~2 test_is_whole_number assertfalse assertfalse proc~test_is_whole_number~2->assertfalse asserttrue asserttrue proc~test_is_whole_number~2->asserttrue is_whole_number is_whole_number proc~test_is_whole_number~2->is_whole_number

Source Code

   subroutine test_is_whole_number()
      integer :: n

      do n= 0, 9
         @assertTrue(is_whole_number(n))
      end do

      do n= 1, 9
         @assertFalse(is_whole_number(-n))
      end do

   end subroutine test_is_whole_number