# HG changeset patch
# User Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
# Date 1391448807 -32400
# Node ID 02e7f2f50bdc1ebdbdf142dbf3ac1d0deab32237
# Parent  efb4e880ac7f1c57c9c148b7328a6910aa7e95be
add test2

diff -r efb4e880ac7f -r 02e7f2f50bdc test/runEvalTest/ParSum.hs
--- a/test/runEvalTest/ParSum.hs	Mon Feb 03 20:38:07 2014 +0900
+++ b/test/runEvalTest/ParSum.hs	Tue Feb 04 02:33:27 2014 +0900
@@ -37,6 +37,12 @@
       then (return [a])
       else do b <- test1 (i-1)
               return (a:b) 
+
+test2 :: Eval (Integer, Integer)
+test2 = rpar (sum' 0 num) >>= (\a ->
+       rpar (sum' num (num*2)) >>= (\b ->
+       return (a,b)))
+
 test3 = do
     a <- rpar (sum' 0 num)
     b <- rpar (sum' num (if a < num then a else (num*2)))