test/goto.voo

   1 #### Test program for goto
   2
   3 section data
   4 format:
   5 string "%d\x0a\x00"
   6
   7 section functions
   8 import exit printf
   9 export main
  10
  11 main:
  12 function argc argv
  13     let n 10
  14 lbl:
  15     call printf format n
  16     set n sub n 1
  17     ifgt n 0
  18         goto lbl
  19     end if
  20
  21     let x ok
  22     goto x
  23
  24     call exit 9
  25
  26 ok:
  27     return 0
  28 end function