gcc/testsuite/gfortran.dg/forall_7.f90

   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 ()
  16 end