anchor.diff:        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
         subroutine quo_cpuset_in_type(q, obj_type, type_index, &
                                       oresult, ierr)
  -          use, intrinsic :: iso_c_binding, only: c_int
  +          use, intrinsic :: iso_c_binding, only: c_ptr, c_int
             implicit none
             type(c_ptr), value :: q
             integer(c_int), value :: obj_type, type_index
  
positive.code:       integer(c_int) &
        function quo_nnumanodes_c(q, n) &
            bind(c, name='QUO_nnumanodes')
            use, intrinsic :: iso_c_binding, only: c_int
            import :: c_ptr
            implicit none
            type(c_ptr), value :: q
            integer(c_int), intent(out) :: n
  
negative.code: 
        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        subroutine quo_nnodes(q, n, ierr)
            use, intrinsic :: iso_c_binding, only: c_ptr, c_int
            implicit none
            type(c_ptr), value :: q
            integer(c_int), intent(out) :: n, ierr
  