gcc/testsuite/gfortran.dg/bounds_check_4.f90

   1 subroutine foo(n,x)
   2   implicit none
   3   integer, intent(in) :: n
   4   complex(8), intent(out) :: x(n,*)
   5   x(1,1) = 0.d0
   6   x(n,1) = 0.d0
   7   x(:,1) = 0.d0
   8   x(2:,1) = 0.d0
   9   x(:n-1,1) = 0.d0
  10   x((/1,n/),1) = 0.d0
  11 end subroutine foo
  12
  13 program test
  14   implicit none
  15   integer, parameter :: n = 17
  16   complex(8) :: x(n,n)
  17   call foo(n,x)
  18 end program test