title: Incompatible ranks 2 and 1 in assignment
body: <p>This is my code: </p>
  
  <pre><code>program test
  integer, dimension(3,3) :: a =(/1,2,3,4,5,6,7,8,9/)
  do i=1,3
  write(*,*) (a(i,j),j=1,3)
  enddo
  end program
  </code></pre>
  
  <p>I get the following error: </p>
  
  <blockquote>
    <p>Incompatible ranks 2 and 1 in assignment at (1)</p>
  </blockquote>
  
  <p>Is the initialization method wrong?</p>