procedure Bool.2 (): let Bool.23 : Int1 = true; ret Bool.23; procedure Test.0 (): let Test.6 : Int1 = CallByName Bool.2; if Test.6 then let Test.8 : Str = "voided tag constructor is unreachable"; Crash Test.8 else let Test.5 : Str = "abc"; ret Test.5;