gcc/testsuite/gfortran.fortran-torture/execute/forall_4.f90

   1 ! Program to test nested forall
   2 program forall2
   3   implicit none
   4   integer a(4,4,2)
   5   integer i, j, k, n
   6
   7   a(:,:,1) = reshape((/ 1, 2, 3, 4,&
   8                         5, 6, 7, 8,&
   9                         9,10,11,12,&
  10                        13,14,15,16/), (/4,4/))
  11   a(:,:,2) = a(:,:,1) + 16
  12   n=4
  13   k=1
  14   ! Mirror half the matrix
  15   forall (i=k:n)
  16    forall (j=1:5-i)
  17      a(i,j,:) = a(j,i,:)
  18    end forall
  19   end forall
  20
  21   if (any (a(:,:,1) &
  22       .ne. reshape((/ 1, 5, 9,13,&
  23                       2, 6,10, 8,&
  24                       3, 7,11,12,&
  25                       4,14,15,16/),(/4,4/)))) call abort
  26   if (any (a(:,:,2) .ne. a(:,:,1) + 16)) call abort
  27 end