1! { dg-do run }
2  integer :: a(10,10)
3  integer :: tot
4  a(:,:) = 0
5  forall (i = 1:10)
6    forall (j = 1:10)
7      a(i,j) = 1
8    end forall
9    forall (k = 1:10)
10      a(i,k) = a(i,k) + 1
11    end forall
12  end forall
13  tot = sum(a(:,:))
14! print *, tot
15  if (tot .ne. 200) call abort ()
16end
17