regina/dw.rexx

   1 call P
   2 say 'after return: p.1='p.1 /* 'ok' */
   3
   4 call Q
   5 say 'after return: q.1='q.1 /* 'bad!' */
   6
   7 exit
   8
   9 P:
  10 procedure expose p.1
  11 p.1 = 'ok'
  12 say 'before return: p.1='p.1 /* 'ok' */
  13 return
  14
  15 Q:
  16 procedure expose q.1
  17 q. = 'bad!'
  18 q.1 = 'ok'
  19 say 'before return: q.1='q.1 /* 'ok' */
  20 return