program main
  implicit none
  integer :: mul
  integer :: a, b, c

  a = 2
  b = 3
  c = mul(a, b)
  print*,'a:',a,', b:',b,', a*b:',c
end program main