program arguments
! .. Use Statements ..
  use arguments_module

! .. Implicit None Statement ..
  implicit none

! .. Local Scalars ..
  integer :: i, j

! .. Local Arrays ..
  integer, dimension (9,9) :: a

! .. Executable Statements ..
  do j = 1, 9
    do i = 1, 9
      a(i,j) = 10*i + j
    end do
  end do
  call print_diagonal(a) ! a is an "actual argument"
end program arguments