program prog
      parameter(one=1)
      complex cnum
      data cnum /(one,2)/
      end