anchor.diff:  
       open(newunit=file_unit, file=filename)
   
  -    ! First sweep to determine number of parameters
  +    ! First sweep to determine number of parameters in file
       num_params = 0
       do
          read(file_unit, *, iostat=io_err) tmp_readin
  
positive.code: 
      open(newunit=file_unit, file=filename)
  
      ! Second sweep to read in parameters
      i_param = 1
      do
         read(file_unit, *, iostat=io_err) tmp_readin
  
negative.code:   end subroutine config_get_logical
  
    subroutine config_get_param_str(param_name, str, found)
      ! Get parameter string from read-in lines from configuration file
      !
      ! param_name :: name of parameter to find
      ! str :: line from read-in corresponding to specified parameter
      ! found :: logical indicating whether parameter was found
      character(*), intent(in) :: param_name
      character(*), intent(out) :: str
      logical, intent(out) :: found
  