compiler/testcases/test19.tig

   1 /* error : second function uses variables local to the first one, undeclared variable */
   2 let
   3
   4 function do_nothing1(a: int, b: string):int=
   5                 (do_nothing2(a+1);0)
   6
   7 function do_nothing2(d: int):string =
   8                 (do_nothing1(a, "str");" ")
   9
  10 in
  11         do_nothing1(0, "str2")
  12 end
  13