test_is_whole_number Subroutine

public subroutine test_is_whole_number()

Arguments

None

Calls

proc~~test_is_whole_number~~CallsGraph proc~test_is_whole_number test_is_whole_number assertfalse assertfalse proc~test_is_whole_number->assertfalse asserttrue asserttrue proc~test_is_whole_number->asserttrue is_whole_number is_whole_number proc~test_is_whole_number->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