program try
      implicit double precision (a-h,o-z)
      read (*, '("Fuck: ",i)') k
      print *, k
      stop
      end