diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/bounds_check_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_4.f90 | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/bounds_check_4.f90 b/gcc/testsuite/gfortran.dg/bounds_check_4.f90 new file mode 100644 index 000000000..9ce2298f2 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/bounds_check_4.f90 @@ -0,0 +1,18 @@ +subroutine foo(n,x) + implicit none + integer, intent(in) :: n + complex(8), intent(out) :: x(n,*) + x(1,1) = 0.d0 + x(n,1) = 0.d0 + x(:,1) = 0.d0 + x(2:,1) = 0.d0 + x(:n-1,1) = 0.d0 + x((/1,n/),1) = 0.d0 +end subroutine foo + +program test + implicit none + integer, parameter :: n = 17 + complex(8) :: x(n,n) + call foo(n,x) +end program test |