gcc/testsuite/gfortran.dg/elemental_dependency_7.f90

   1 ! { dg-do run }
   2 ! PR fortran/107819 - ICE in gfc_check_argument_var_dependency
   3 ! Contributed by G.Steinmetz
   4 !
   5 ! Note: the testcase is considered non-conforming for m>1 due to aliasing
   6
   7 program p
   8   implicit none
   9   integer, parameter :: m = 1
  10   integer :: i
  11   integer :: a(m) = [(-i,i=1,m)]
  12   integer :: n(m) = [(i,i=m,1,-1)]
  13   integer :: b(m)
  14   b = a
  15   call s (a(n), a) ! { dg-warning "might interfere with actual argument" }
  16
  17   ! Compare to separate application of subroutine in element order
  18   do i = 1, size (b)
  19      call s (b(n(i)), b(i))
  20   end do
  21   if (any (a /= b)) stop 1
  22 contains
  23   elemental subroutine s (x, y)
  24     integer, value       :: x
  25     integer, intent(out) :: y
  26     y = x
  27   end
  28 end