anchor.diff:          integer(c_int), intent(out) :: errno
         end subroutine
       end interface
  -    type(config), intent(out) :: cfg
  -    character(len=*), intent(in) :: key, defvalue
  -    character(len=*), intent(out) :: buf
  -    integer, intent(inout), optional :: errno
  -    integer :: errno_local
   
       call c_mincf_get_default(cfg, &
  -    & key, len(key,c_size_t), &
  -    & buf, len(buf,c_size_t), &
  -    & defvalue, len(defvalue,c_size_t), &
  -    & errno_local)
  +        & key, len(key,c_size_t), &
  +        & buf, len(buf,c_size_t), &
  +        & defvalue, len(defvalue,c_size_t), &
  +        & errno_local)
   
       if ( present(errno) ) then
         errno = errno_local
       end if
     end subroutine
   
  +  !---------------------------------------------------------------------------!
   
     subroutine mincf_print_error(errno,file,line)
       integer, intent(in) :: errno
  
positive.code:     & write (0,"(A,': ',A)") trim(prefix),"Memory error"
    end subroutine
  
  end module
  
negative.code:         integer(c_int), intent(out) :: errno
        end subroutine
      end interface
  
      call c_mincf_get_exists(cfg, key, len(key,c_size_t), errno)
  
      mincf_exists = ( errno .eq. MINCF_OK )
    end function
  
    !---------------------------------------------------------------------------!
  
    subroutine mincf_get_default(cfg,key,buf,defvalue,errno)
      type(config), intent(out) :: cfg
      character(len=*), intent(in) :: key, defvalue
      character(len=*), intent(out) :: buf
      integer, intent(inout), optional :: errno
      integer :: errno_local
  
      interface
        subroutine c_mincf_get_default(cfg,key,key_sz,buf,sz,defvalue,defvalue_sz,errno) &
              & bind(C, name='fort_mincf_get_default')
          use iso_c_binding
          import config
          type(config), intent(out) :: cfg
  