PROGRAM leivo
  IMPLICIT NONE
  INTEGER :: jauhot = 1, sokeri = 1, munat = 1
  NAMELIST /kakku/ jauhot, sokeri, munat
  READ (*, NML=kakku)
  WRITE (*, NML=kakku)
END PROGRAM leivo