tests/bugs/recode-copy-bug-1.stat

   1 TITLE 'Test for regression of recode COPY bug'
   2
   3 DATA LIST LIST
   4  /A (A1)
   5  B (A1).
   6
   7 BEGIN DATA
   8 1     2
   9 2     3
  10 3     4
  11 END DATA.
  12
  13 ** Clearly, the else=copy is superfluous here
  14 RECODE A ("1"="3") ("3"="1") (ELSE=COPY).
  15 EXECUTE.
  16 LIST.
  17