anchor.diff:  module sort
   
   use const, only: int_32, int_64, p
  +
  +implicit none
   
   private
   public :: qsort
  
positive.code: 
      end subroutine qsort_int_64_list
  
  !--- In-place insertion sort.  ---
  
      pure subroutine insert_sort_int_32(list)
  
negative.code: interface qsort
      module procedure qsort_int_32_list
      module procedure qsort_int_64_list
      module procedure qsort_psip_info
  end interface qsort
  
  ! Insertion sort...
  