program example
  implicit none
  != unit (s) :: x
  != unit (m) :: y
  integer :: x, y
  integer :: z
  z = x + y
end program example