program reidai4_5
  !
  ! Sample program of array (and double do-loops)
  ! KuKu table
  !
  implicit none
  integer :: i,j
  integer,dimension(9,9) :: kuku  ! integer :: kuku(9,9)

  do i=1,9
    do j=1,9
      kuku(i,j)=i*j
    end do
  end do

  write(*,*) 'KuKu Table'
  do i=1,9
    write (*,*) (kuku(i,j),j=1,9)
  end do

end program reidai4_5

実行結果