Avoid cycle caused by calculation of ObsoleteState/ExperimentalState. (#70171)

* Avoid cycle caused by calculation of ObsoleteState/ExperimentalState.

Fixes #70007.

* Add C# test

* More tests

Author: AlekseyTs

src/Compilers/CSharp/Test/Semantic/Semantics/BindingTests.cs

@@ -3907,5 +3907,27 @@ void N()
             var typeInfo = model.GetTypeInfo(lambda.Body);
             Assert.Equal("System.Int32", typeInfo.Type.ToTestDisplayString());
         }
+
+        [Fact]
+        [WorkItem("https://github.com/dotnet/roslyn/issues/70007")]
+        public void CycleThroughAttribute()
+        {
+            var compilation = CreateCompilation(@"
+using System.Reflection;
+
+[assembly: AssemblyVersion(MainVersion.CurrentVersion)]
+
+public class MainVersion
+{
+    public const string Hauptversion = ""8"";
+    public const string Nebenversion = ""2"";
+    public const string Build = ""0"";
+    public const string Revision = ""1"";
+
+    public const string CurrentVersion = Hauptversion + ""."" + Nebenversion + ""."" + Build + ""."" + Revision;
+}
+");
+            CompileAndVerify(compilation).VerifyDiagnostics();
+        }
     }
 }

src/Compilers/VisualBasic/Portable/Binding/Binder_Initializers.vb

@@ -550,7 +550,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic
                 End If
 
                 Dim boundInitValueHasErrorsOrConstTypeIsWrong As Boolean =
-                    initValueDiagnostics.HasAnyErrors OrElse fieldSymbol.HasDeclaredType AndAlso Not targetType.IsValidTypeForConstField()
+                    initValueDiagnostics.HasAnyResolvedErrors OrElse fieldSymbol.HasDeclaredType AndAlso Not targetType.IsValidTypeForConstField()
 
                 ' NOTE: we'll only report ERR_RequiredConstConversion2 ("Conversion from '...' to '.' cannot occur in 
                 ' NOTE: a constant expression") and ERR_RequiredConstExpr ("Constant expression is required") in case

src/Compilers/VisualBasic/Test/Semantic/Binding/Binder_Expressions_Tests.vb

@@ -3446,5 +3446,121 @@ End Class    </file>
 
             CompileAndVerify(compilation, expectedOutput:="42")
         End Sub
+
+        <WorkItem("https://github.com/dotnet/roslyn/issues/70007")>
+        <Fact()>
+        Public Sub CycleThroughAttribute_01()
+            Dim compilation = CreateCompilation(
+<compilation>
+    <file name="a.vb"><![CDATA[
+Imports System.Reflection
+
+<Assembly: AssemblyVersion(MainVersion.CurrentVersion)>
+
+Public Class MainVersion
+    Public Const Hauptversion As String = "8"
+    Public Const Nebenversion As String = "2"
+    Public Const Build As String = "0"
+    Public Const Revision As String = "1"
+
+    Public Const CurrentVersion As String = Hauptversion & "." & Nebenversion & "." & Build & "." & Revision
+End Class
+    ]]></file>
+</compilation>)
+
+            CompileAndVerify(compilation).VerifyDiagnostics()
+        End Sub
+
+        <WorkItem("https://github.com/dotnet/roslyn/issues/70007")>
+        <Fact()>
+        Public Sub CycleThroughAttribute_02()
+            Dim compilation = CreateCompilation(
+<compilation>
+    <file name="a.vb"><![CDATA[
+<Module: MyAttribute(MainVersion.CurrentVersion)>
+
+Public Class MainVersion
+    Public Const Hauptversion As String = "8"
+    Public Const Nebenversion As String = "2"
+    Public Const Build As String = "0"
+    Public Const Revision As String = "1"
+
+    Public Const CurrentVersion As String = Hauptversion & "." & Nebenversion & "." & Build & "." & Revision
+End Class
+
+class MyAttribute
+	Inherits System.Attribute
+
+	Sub New(x as String)
+	End Sub
+End Class
+    ]]></file>
+</compilation>)
+
+            CompileAndVerify(compilation).VerifyDiagnostics()
+        End Sub
+
+        <WorkItem("https://github.com/dotnet/roslyn/issues/70007")>
+        <Fact()>
+        Public Sub CycleThroughAttribute_03()
+            Dim compilation = CreateCompilation(
+<compilation>
+    <file name="a.vb"><![CDATA[
+<MyAttribute(MainVersion.CurrentVersion)>
+Public Class MainVersion
+    Public Const Hauptversion As String = "8"
+    Public Const Nebenversion As String = "2"
+    Public Const Build As String = "0"
+    Public Const Revision As String = "1"
+
+    Public Const CurrentVersion As String = Hauptversion & "." & Nebenversion & "." & Build & "." & Revision
+End Class
+
+class MyAttribute
+	Inherits System.Attribute
+
+	Sub New(x as String)
+	End Sub
+End Class
+    ]]></file>
+</compilation>)
+
+            CompileAndVerify(compilation).VerifyDiagnostics()
+        End Sub
+
+        <WorkItem("https://github.com/dotnet/roslyn/issues/70007")>
+        <Fact()>
+        Public Sub CycleThroughAttribute_04()
+            Dim compilation = CreateCompilation(
+<compilation>
+    <file name="a.vb"><![CDATA[
+Imports System.Reflection
+
+<Assembly: AssemblyVersion(MainVersion.CurrentVersion)>
+
+<Module: MyAttribute(MainVersion.CurrentVersion)>
+
+<MyAttribute(MainVersion.CurrentVersion)>
+Public Class MainVersion
+    Public Const Hauptversion As String = "8"
+    Public Const Nebenversion As String = "2"
+    Public Const Build As String = "0"
+    Public Const Revision As String = "1"
+
+    Public Const CurrentVersion As String = Hauptversion & "." & Nebenversion & "." & Build & "." & Revision
+End Class
+
+class MyAttribute
+	Inherits System.Attribute
+
+	Sub New(x as String)
+	End Sub
+End Class
+    ]]></file>
+</compilation>)
+
+            CompileAndVerify(compilation).VerifyDiagnostics()
+        End Sub
+
     End Class
 End Namespace