compiler/testcases/test21.tig

   1 /* error : procedure returns value  and procedure is used in arexpr */
   2 let
   3
   4 /* calculate n! */
   5 function nfactor(n: int) =
   6                 if  n = 0
   7                         then 1
   8                         else n * nfactor(n-1)
   9
  10 in
  11         nfactor(10)
  12 end
  13