program prog
      intrinsic unk
      write(6, *) unk(0)
      end