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