anchor.diff:      end if
     end subroutine
   
  +  !---------------------------------------------------------------------------!
  +
     subroutine mincf_read_file(cfg,fn,errno)
   
  +    type(config), intent(inout) :: cfg
  +    character(len=*), intent(in) :: fn
  +    integer, intent(inout), optional :: errno
  +    integer :: errno_local
  +
       interface
         subroutine c_mincf_read_file(cfg,fn,sz,errno) &
  -        & bind(C,name='fort_mincf_read_file')
  +            & bind(C, name='fort_mincf_read_file')
           use iso_c_binding
           import :: config
           type(config), intent(inout) :: cfg
  
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_default(cfg, &
          & 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
  