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