test_between_op Subroutine

public subroutine test_between_op()

Arguments

None

Calls

proc~~test_between_op~~CallsGraph proc~test_between_op test_between_op assertfalse assertfalse proc~test_between_op->assertfalse asserttrue asserttrue proc~test_between_op->asserttrue

Source Code

   subroutine test_between_op()
      integer, parameter :: lower = 36
      integer, parameter :: upper = 48
      integer, parameter :: delta = 6
      @assertTrue((lower + delta) .between. [lower, upper])
      @assertFalse(lower .between. [lower, upper])
      @assertFalse((lower - 1) .between. [lower, upper])
      @assertFalse(upper .between. [lower, upper])
      @assertFalse((upper + 1) .between. [lower, upper])
   end subroutine test_between_op