gcc/testsuite/gfortran.dg/forall_18.f90

   1 ! { dg-do compile }
   2 ! PR fortran/69741 - improve error message for nonscalar FORALL index variables
   3 !
   4 subroutine check
   5   integer :: ii(2), i
   6   real :: a(3,2)
   7
   8   forall (ii(1)=1:3, i=1:2) ! { dg-error "scalar variable of type integer" }
   9      a(ii(1),i) = ii(1) * i
  10   end forall
  11
  12   forall (j=1:3, ii(2)=1:2) ! { dg-error "scalar variable of type integer" }
  13      a(j,ii(2)) = j * ii(2)
  14   end forall
  15
  16 end subroutine check