anchor.diff:  
         !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
         subroutine quo_nqids(q, n, 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), intent(out) :: n, ierr
  
positive.code: 
        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        subroutine quo_bound(q, bound, ierr)
            use, intrinsic :: iso_c_binding
            implicit none
            type(c_ptr), value :: q
            logical, intent (out) :: bound
  
negative.code:       integer(c_int) &
        function quo_barrier_c(q) &
            bind(c, name='QUO_barrier')
            use, intrinsic :: iso_c_binding, only: c_ptr, c_int
            implicit none
            type(c_ptr), value :: q
        end function quo_barrier_c
  