fix countervailing symbol-lookup error

gcc/cobol/symfind.cc

@@ -381,7 +381,10 @@ symbol_match2( size_t program,
 {
   std::vector<size_t> fields;
 
-  for( auto e = symbols_begin(program) + 1; e != symbols_end(); e++ ) {
+  auto e = symbols_begin(program);
+  if( is_program(*e) ) e++;
+  
+  for( ; e != symbols_end(); e++ ) {
     if( e->program != program ) break;
     if( e->type != SymField ) continue;