a few more blank tests

R=ken
OCL=34500
CL=34500
diff --git a/src/cmd/gc/go.y b/src/cmd/gc/go.y
index f784c86..61f8b2b 100644
--- a/src/cmd/gc/go.y
+++ b/src/cmd/gc/go.y
@@ -176,6 +176,8 @@
 			importdot(import);
 			break;
 		}
+		if(my->name[0] == '_' && my->name[1] == '\0')
+			break;
 
 		// TODO(rsc): this line is needed for a package
 		// which does bytes := in a function, which creates
@@ -212,8 +214,8 @@
 		$$ = parserline();
 		pkgimportname = S;
 		pkgmyname = $1;
-		if(pkgmyname->def)
-			redeclare(pkgmyname, "as imported package name");
+		if($1->def && ($1->name[0] != '_' || $1->name[1] != '\0'))
+			redeclare($1, "as imported package name");
 		importfile(&$2);
 	}
 |	'.' LLITERAL
@@ -1172,6 +1174,7 @@
 |	xdcl_list xdcl
 	{
 		$$ = concat($1, $2);
+		testdclstack();
 	}
 
 vardcl_list: