1integer function intproduct(a, b) result(res) 2 integer, intent(in) :: a, b 3 res = a*b 4end function 5
