program example
  implicit none
  != unit (s) :: b
  != unit (m) :: c
  integer :: a, b, c
  a = b * c
end program example