test_in_op Subroutine

public subroutine test_in_op()

Arguments

None

Calls

proc~~test_in_op~~CallsGraph proc~test_in_op test_in_op assertfalse assertfalse proc~test_in_op->assertfalse asserttrue asserttrue proc~test_in_op->asserttrue

Source Code

   subroutine test_in_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_in_op