Copy access flags to derived definitions during desugaring

Previously, some definitions were too public, others too private.

1 files changed, 19 insertions, 0 deletions

diff --git a/tests/neg/i997a.scala b/tests/neg/i997a.scala
new file mode 100644
index 000000000..582c8d0e6
--- /dev/null
+++ b/tests/neg/i997a.scala
@@ -0,0 +1,19 @@
+class C {
+
+  class Super
+
+  object O {
+
+    private case class CC(x: Int)
+
+    private implicit class D(x: Int) extends Super
+  }
+
+  import O._
+
+  println(O.CC(1))
+
+  val s: Super = 1
+
+
+}