2 files changed, 54 insertions, 0 deletions
diff --git a/test/files/run/t5514.check b/test/files/run/t5514.check
new file mode 100644
index 0000000000..c68f7c9029
--- /dev/null
+++ b/test/files/run/t5514.check
@@ -0,0 +1,19 @@
+constructed reader: 10
+constructed reader: 9
+constructed reader: 8
+constructed reader: 7
+constructed reader: 6
+constructed reader: 5
+constructed reader: 4
+constructed reader: 3
+constructed reader: 2
+constructed reader: 1
+constructed reader: 0
+[0.0] parsed: List(s10, s9, s8, s7, s6, s5, s4, s3, s2, s1)
+constructed reader: 10
+constructed reader: 9
+constructed reader: 8
+constructed reader: 7
+constructed reader: 6
+constructed reader: 5
+[0.0] parsed: List(s10, s9, s8, s7, s6)
+\ No newline at end of file
diff --git a/test/files/run/t5514.scala b/test/files/run/t5514.scala
new file mode 100644
index 0000000000..efd5ba6cb9
--- /dev/null
+++ b/test/files/run/t5514.scala
@@ -0,0 +1,35 @@
+
+
+
+import scala.io.Source
+import scala.util.parsing.combinator.Parsers
+import scala.util.parsing.input.Reader
+import scala.util.parsing.input.Position
+
+
+
+class DemoReader(n: Int) extends Reader[String] {
+  def atEnd = n == 0
+  def first = if (n >= 0) "s" + n else throw new IllegalArgumentException("No more input.")
+  def rest = new DemoReader(n - 1)
+  def pos = new Position {
+    def line = 0
+    def column = 0
+    def lineContents = first
+  }
+  println("constructed reader: " + n)
+}
+
+
+object Test extends App with Parsers {
+  type Elem = String
+  def startsWith(prefix: String) = acceptIf(_ startsWith prefix)("Error: " + _)
+  
+  val resrep = startsWith("s").*(new DemoReader(10))
+  Console println resrep
+  
+  val resrep5 = repN(5, startsWith("s"))(new DemoReader(10))
+  Console println resrep5
+}
+
+