anchor.diff:    end subroutine array_reverse_dp
   
     subroutine array_reverse_int(arr)
  -    ! Reverse array
  -
  +    ! Duplicate of array_reverse_dp, but for an integer array.
       integer, intent(inout) :: arr(:)
   
       integer :: i, j, n
  
positive.code:   contains
  
      subroutine partition_lomuto_dp(arr, i_min, i_max, part)
        ! Lomuto partition scheme for quicksort
  
        real(dp), intent(inout) :: arr(:)
        integer, intent(in) :: i_min, i_max
        integer, intent(out) :: part
  
negative.code:   end subroutine array_quicksort_dp
  
    recursive subroutine array_quicksort_int(arr, i_min, i_max)
      ! Duplicate of array_quicksort_dp, but for an integer array.
      integer, intent(inout) :: arr(:)
      integer, intent(in) :: i_min, i_max
  
  