Add a test for nameof(typeParam) in method parameter default value

Fixes #564

src/Compilers/VisualBasic/Test/Semantic/Semantics/NameOfTests.vb

@@ -3521,5 +3521,21 @@ N1N2
 ]]>).VerifyDiagnostics()
         End Sub
 
+        <Fact, WorkItem(564, "https://github.com/dotnet/roslyn/issues/564")>
+        Public Sub NameOfTypeParameterInDefaultValue()
+            Dim compilationDef =
+<compilation>
+    <file name="a.vb">
+Module Program
+    Sub M(Of TP)(Optional name As String = NameOf(TP))
+    End Sub
+End Module
+    </file>
+</compilation>
+
+            Dim comp = CreateCompilationWithMscorlibAndVBRuntime(compilationDef, TestOptions.DebugDll)
+            CompileAndVerify(comp).VerifyDiagnostics()
+        End Sub
+
     End Class
 End Namespace