program main
  implicit none
  integer :: a = 2, b = 3
  call add_print(a, b) ! 実数の仮引数に整数の実引数を渡している。
end program