      program fmt1
      character*10 zfmt
      zfmt='(IK)'
      write(6,zfmt) 123
      end
