Add tests for obsolete issues

#KT-21085 Obsolete
 #KT-13846 Obsolete

compiler/testData/codegen/box/super/superConstructor/kt13846.kt

@@ -0,0 +1,14 @@
+open class SuperClass(val arg: () -> String)
+
+object obj {
+
+    fun foo(): String {
+        return "OK"
+    }
+
+    class Foo : SuperClass(::foo)
+}
+
+fun box(): String {
+    return obj.Foo().arg()
+}