NRefactory.VB: fixed ResumeStatement

ICSharpCode.NRefactory.VB.Tests/Parser/Statements/ResumeStatement.cs

@@ -12,12 +12,12 @@ namespace ICSharpCode.NRefactory.VB.Tests.Dom
 	[TestFixture]
 	public class ResumeStatementTests
 	{
-		#region VB.NET
 		[Test]
-		public void VBNetResumeStatementTest()
+		public void ResumeStatementTest()
 		{
 			ResumeStatement resumeStatement = ParseUtil.ParseStatement<ResumeStatement>("Resume");
 		}
-		#endregion
+		
+		// TODO : write some more
 	}
 }

ICSharpCode.NRefactory.VB/Parser/Parser.cs

@@ -4830,9 +4830,9 @@ partial class VBParser
 				resumeStatement = new ResumeStatement(true);
 			} else {
 				LabelName(out label);
-				resumeStatement = new ResumeStatement(label);
 			}
 		}
+		resumeStatement = new ResumeStatement(label);
 	}
 
 	void ExpressionStatement(out Statement statement) {

ICSharpCode.NRefactory.VB/Parser/vb.atg

@@ -3574,8 +3574,9 @@ ResumeStatement<out Statement resumeStatement>
 .)
 =
 	"Resume"
-	[ "Next" (. resumeStatement = new ResumeStatement(true); .)
+	[ "Next" (. resumeStatement = new ResumeStatement(true); .) | LabelName<out label> ]
-	|  LabelName<out label>  (. resumeStatement = new ResumeStatement(label); .) ]
+	// if only "Resume" is present label is ""
+	(. resumeStatement = new ResumeStatement(label); .)
 .
 
 /* 18.8.2 */