program example
  implicit none
  integer :: a, b, c
  a = b * c
end program example