From 436c0a007524fcf3e7981b304688c01e1b58ec9e Mon Sep 17 00:00:00 2001 From: burnus Date: Wed, 31 Jan 2007 10:23:53 +0000 Subject: [PATCH] (This part was missing in the r118852 / Wed Nov 15 10:13:16 2006 check in) 2007-01-31 Tobias Burnus PR fortran/27588 * gfortran.dg/char_bounds_check_fail_1.f90: Add test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@121401 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 | 12 ++++++++++++ 2 files changed, 17 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 28e5e0d..d28f8e6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2007-01-31 Tobias Burnus + PR fortran/27588 + * gfortran.dg/char_bounds_check_fail_1.f90: Add test. + +2007-01-31 Tobias Burnus + PR fortran/30520 * gfortran.dg/volatile8.f90: New argument conformance test. * gfortran.dg/volatile9.f90: New scope test. diff --git a/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 b/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 new file mode 100644 index 0000000..8afdae3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/char_bounds_check_fail_1.f90 @@ -0,0 +1,12 @@ +! { dg-do run } +! { dg-options "-fbounds-check" } +! { dg-shouldfail "Substring out of bounds check" } +! PR fortran/27588 +program bound_check + character*10 zz + i = 2 + j = i+9 + zz(i:j) = 'abcdef' + print * , zz + end +! { dg-output "Substring out of bounds: upper bound exceeds string length.*at line 9)} -- 2.7.4