rexx/progs/bugintr.r

   1 /* here it is a bug of interpret */
   2 say "Calling PROCEDURE with INTERPRET"
   3 interpret 'call proc'
   4 say 'Normal CALL of the PROCEDURE'
   5 call proc
   6 say 'Procedure Finished'
   7 exit
   8
   9 proc:
  10    say 'we are doing INTERPRET "return"'
  11    interpret 'return'
  12
  13 proc2:
  14    say 'It should not come here!!'
  15    return