anchor.diff:        integer(c_int) &
         function quo_ptr_free_c(cptr) &
             bind(c, name='QUO_ptr_free')
  -          use, intrinsic :: iso_c_binding, only: c_int, c_ptr
  +          use, intrinsic :: iso_c_binding, only: c_ptr, c_int
             implicit none
             type(c_ptr), value :: cptr
         end function quo_ptr_free_c
  
positive.code:       integer(c_int) &
        function quo_ncores_c(q, n) &
            bind(c, name='QUO_ncores')
            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:       integer(c_int) &
        function quo_cpuset_in_type_c(q, obj_type, type_index, oresult) &
            bind(c, name='QUO_cpuset_in_type')
            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
  