Fixed forum-10453: NRefactory VBNetOutputVisitor writes incorrect "AS" keyword

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/branches/3.0@5431 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

src/Libraries/NRefactory/Project/Src/PrettyPrinter/VBNet/VBNetOutputVisitor.cs

@@ -1739,10 +1739,12 @@ namespace ICSharpCode.NRefactory.PrettyPrinter
 			
 			// loop control variable
 			outputFormatter.PrintIdentifier(foreachStatement.VariableName);
+			if (!foreachStatement.TypeReference.IsNull) {
 				outputFormatter.Space();
 				outputFormatter.PrintToken(Tokens.As);
 				outputFormatter.Space();
 				TrackedVisit(foreachStatement.TypeReference, data);
+			}
 			
 			outputFormatter.Space();
 			outputFormatter.PrintToken(Tokens.In);

src/Libraries/NRefactory/Test/Output/VBNet/VBNetOutputTest.cs

@@ -497,5 +497,11 @@ End Using");
 			            "Option Infer On\n" +
 			            "Option Compare Text");
 		}
+		
+		[Test]
+		public void UntypedForeach()
+		{
+			TestStatement("For Each x In myGuidArray\nNext");
+		}
 	}
 }