added test tmultim4.nim

tests/accept/run/spec.csv

@@ -41,6 +41,7 @@ tmatrix.nim;111
 tmultim1.nim;7
 tmultim2.nim;collide: unit, thing collide: unit, thing collide: thing, unit
 tmultim3.nim;Hi derived!
+tmultim4.nim;hello
 tnestif.nim;i == 2
 tnestprc.nim;10
 toop1.nim;34[]o 5

tests/accept/run/tmultim4.nim

@@ -0,0 +1,39 @@
+type
+  Test = object of TObject
+
+method doMethod(a: ref TObject) =
+  quit "override"
+
+method doMethod(a: ref Test) =
+  echo "hello"
+
+proc doProc(a: ref Test) =
+  echo "hello"
+
+proc newTest(): ref Test =
+  new(result)
+
+var s:ref Test = newTest()
+
+
+#doesn't work
+for z in 1..4:
+  s.doMethod()
+  break
+ 
+#works
+#for z in 1..4:
+#  s.doProc()
+#  break
+
+#works
+#while true:
+#  s.doMethod()
+#  break
+
+#works
+#while true:
+#  s.doProc()
+#  break
+
+