1.2.17. test/regress/rt-1.01.17

     1: #line 734 "./lpsrc/flx_regress.pak"
     2: //Check recursion
     3: #line 734 "./lpsrc/flx_regress.pak"
     4: //Check tail call optimisation
Start felix section to test/regress/rt-1.01.17-0.flx[1 /1 ]
     5: #import <flx.flxh>
     6: // self-tail rec test (inspect output)
     7: // (requires --inline atm)
     8: var x = 4;
     9: proc recur ()
    10: {
    11:   if x == 0 goto endoff;
    12:   print x; endl;
    13:   --x;
    14:   recur();
    15: endoff:>
    16: }
    17: recur();
End felix section to test/regress/rt-1.01.17-0.flx[1]
Start data section to test/regress/rt-1.01.17-0.expect[1 /1 ]
     1: 4
     2: 3
     3: 2
     4: 1
End data section to test/regress/rt-1.01.17-0.expect[1]