1.2.20. test/regress/rt-1.01.20

     1: #line 803 "./lpsrc/flx_regress.pak"
     2: //Check recursion
     3: #line 803 "./lpsrc/flx_regress.pak"
     4: //Check tail call optimisation
Start felix section to test/regress/rt-1.01.20-0.flx[1 /1 ]
     5: #import <flx.flxh>
     6: // non-self-tail rec test (inspect output)
     7: // (requires --inline atm)
     8: 
     9: fun f(x:int)=>
    10:   if(x == 0) then 1
    11:   else f(x-1)
    12:   endif
    13: ;
    14: 
    15: print (f 10); endl;
End felix section to test/regress/rt-1.01.20-0.flx[1]
Start data section to test/regress/rt-1.01.20-0.expect[1 /1 ]
     1: 1
End data section to test/regress/rt-1.01.20-0.expect[1]