anchor.diff:              logical :: comp_result
   
               if (reverse) then
  -                comp_result = not(elem1 .ge. elem2)
  +                comp_result = .not. (elem1 .ge. elem2)
               else
                   comp_result = elem1 .gt. elem2
               end if
  
positive.code:             logical :: comp_result
  
              if (reverse) then
                  comp_result = not(elem1 .gt. elem2)
              else
                  comp_result = elem1 .ge. elem2
              end if
  
negative.code:             logical :: comp_result
  
              if (reverse) then
                  comp_result = .not. (elem1(:) .bitstrgt. elem2(:))
              else
                  comp_result = elem1(:) .bitstrge. elem2(:)
              end if
  