From 261ff3d0abea28091ce951613f440ccaabdfb7b5 Mon Sep 17 00:00:00 2001 From: Martin Odersky Date: Fri, 28 Jul 2006 11:12:16 +0000 Subject: changled handling of gadts --- test/files/pos/gadts2.scala | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 test/files/pos/gadts2.scala (limited to 'test/files/pos/gadts2.scala') diff --git a/test/files/pos/gadts2.scala b/test/files/pos/gadts2.scala new file mode 100644 index 0000000000..ca905c572a --- /dev/null +++ b/test/files/pos/gadts2.scala @@ -0,0 +1,26 @@ +object Test{ + +abstract class Number +case class Int(n: int) extends Number +case class Double(d: double) extends Number + +trait Term[+a] +case class Cell[a](var x: a) extends Term[a] +final case class NumTerm(val n: Number) extends Term[Number] + + +def f[a](t:Term[a], c:Cell[a]): unit = + t match { + case NumTerm(n) => c.x = Double(1.0) + } + + +val x:Term[Number] = NumTerm(Int(5)) + +def main(args: Array[String]): unit = { + val cell = Cell[Number](Int(6)) + Console.println(cell) + f[Number](new NumTerm(Int(5)), cell) + Console.println(cell) +} +} -- cgit v1.2.3