* gfortran.dg/bounds_check_fail_1.f90: New test.

From-SVN: r117431

* gfortran.dg/bounds_check_fail_1.f90: New test.
From-SVN: r117431
2e38371e · Francois-Xavier Coudert · François-Xavier Coudert · 1576e2be · 2e38371e · 2e38371e
Commit 2e38371e authored Oct 04, 2006 by Francois-Xavier Coudert Committed by François-Xavier Coudert Oct 04, 2006
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90
+7 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+2006-10-04  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* gfortran.dg/bounds_check_fail_1.f90: New test.
+
 2006-10-03  Mark Mitchell  <mark@codesourcery.com>

 	PR c++/29020
--- a/gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_fail_1.f90
+! { dg-do run }
+! { dg-options "-fbounds-check" }
+! { dg-shouldfail "foo" }
+  integer x(1)
+  x(2) = x(1) ! { dg-warning "out of bounds" }
+  end
+! { dg-output "out of bounds for array 'x', upper bound of dimension 1 exceeded.*at line 5" }