bounds_check_4.f90: Add dg-options "-fbounds-check".

2013-01-15  Manfred Schwarb  <manfred99@gmx.ch>
	    Harald Anlauf  <anlauf@gmx.de>

	* gfortran.dg/bounds_check_4.f90: Add dg-options "-fbounds-check".
	* gfortran.dg/bounds_check_5.f90: Likewise.
	* gfortran.dg/class_array_10.f03: Fix syntax of dg-directive.
	* gfortran.dg/continuation_9.f90: Likewise.
	* gfortran.dg/move_alloc_13.f90: Likewise.
	* gfortran.dg/structure_constructor_11.f90: Likewise.
	* gfortran.dg/tab_continuation.f: Likewise.
	* gfortran.dg/warning-directive-2.F90: Likewise.
	* gfortran.dg/coarray_lib_token_4.f90: Remove misspelled directive.

Co-Authored-By: Harald Anlauf <anlauf@gmx.de>
From-SVN: r195217

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 16d6e88d192aec3d5cf8a9de870dc666e7503f70..5ad1cef4679f30c3bd6515fcb17980fcc1849e1d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,16 @@
+2013-01-15  Manfred Schwarb  <manfred99@gmx.ch>
+           Harald Anlauf  <anlauf@gmx.de>
+
+       * gfortran.dg/bounds_check_4.f90: Add dg-options "-fbounds-check".
+       * gfortran.dg/bounds_check_5.f90: Likewise.
+       * gfortran.dg/class_array_10.f03: Fix syntax of dg-directive.
+       * gfortran.dg/continuation_9.f90: Likewise.
+       * gfortran.dg/move_alloc_13.f90: Likewise.
+       * gfortran.dg/structure_constructor_11.f90: Likewise.
+       * gfortran.dg/tab_continuation.f: Likewise.
+       * gfortran.dg/warning-directive-2.F90: Likewise.
+       * gfortran.dg/coarray_lib_token_4.f90: Remove misspelled directive.
+
 2013-01-15  Janis Johnson  <janisjo@codesourcery.com>
 
        * gcc.target/arm/fma.c: Skip for conflicting multilib options.

diff --git a/gcc/testsuite/gfortran.dg/bounds_check_4.f90 b/gcc/testsuite/gfortran.dg/bounds_check_4.f90
index d726b566d01f82b6b1440dcba868f3d0b9117273..7ede11fd0913218881545ddcf11d333a92a1927f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/bounds_check_4.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_4.f90
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-options "-fbounds-check" }
 subroutine foo(n,x)
   implicit none
   integer, intent(in) :: n

diff --git a/gcc/testsuite/gfortran.dg/bounds_check_5.f90 b/gcc/testsuite/gfortran.dg/bounds_check_5.f90
index 3a2fc6306a5516b9882754ccc06904051c7c63ba..e2e32e3e53bc0250bf583e0e8b57a5926cbcf00a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/bounds_check_5.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_5.f90
@@ -1,4 +1,5 @@
 ! { dg-do run }
+! { dg-options "-fbounds-check" }
 ! This tests the fix for PR30190, in which the array reference
 ! in the associated statement would cause a segfault.
 !

diff --git a/gcc/testsuite/gfortran.dg/class_array_10.f03 b/gcc/testsuite/gfortran.dg/class_array_10.f03
index 8ca8e0b59664d6556692e4d3c99329d3a6ca6519..9eb3ef71814376a50205e0f613d14abf0591c119 100644 (file)
--- a/gcc/testsuite/gfortran.dg/class_array_10.f03
+++ b/gcc/testsuite/gfortran.dg/class_array_10.f03
@@ -1,4 +1,4 @@
-! { dg-do compile}
+! { dg-do compile }
 !
 ! PR fortran/41587
 ! This program was leading to an ICE related to class allocatable arrays

diff --git a/gcc/testsuite/gfortran.dg/coarray_lib_token_4.f90 b/gcc/testsuite/gfortran.dg/coarray_lib_token_4.f90
index 2616d257d98dd6443d2ca37416b39f0124d14498..43da9f4c909096d25d9edf6adc33952d27decc09 100644 (file)
--- a/gcc/testsuite/gfortran.dg/coarray_lib_token_4.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_lib_token_4.f90
@@ -40,7 +40,6 @@ end program test_caf
 ! { dg-final { scan-tree-dump-times "foo \\(struct array2_integer\\(kind=4\\) & restrict x, struct array2_integer\\(kind=4\\) & restrict y, integer\\(kind=4\\) & restrict test, void . restrict caf_token.\[0-9\]+, integer\\(kind=.\\) caf_offset.\[0-9\]+, void . restrict caf_token.\[0-9\]+, integer\\(kind=.\\) caf_offset.\[0-9\]+\\)" 1 "original" } }
 !
 ! { dg-final { scan-tree-dump-times "bar \\(&parm.\[0-9\]+, caf_token.\[0-9\]+, \\(\\(integer\\(kind=.\\)\\) parm.\[0-9\]+.data - \\(integer\\(kind=.\\)\\) x.\[0-9\]+\\) \\+ caf_offset.\[0-9\]+\\);" 1 "original" } }
-! { d_g-final { scan-tree-dump-times "bar \\(&parm.\[0-9\]+, caf_token.\[0-9\]+, \\(\\(integer\\(kind=.\\) parm.\[0-9\]+.data - \\(integer\\(kind=.\\)\\) x.\[0-9\]+\\) \\+ caf_offset.\[0-9\]+\\);" 1 "original" } }
 !
 ! { dg-final { scan-tree-dump-times "expl \\(\\(integer\\(kind=4\\).0:. .\\) parm.\[0-9\]+.data, caf_token.\[0-9\]+, \\(\\(integer\\(kind=.\\)\\) parm.\[0-9\]+.data - \\(\\(integer\\(kind=.\\)\\) y.\[0-9\]+\\) \\+ caf_offset.\[0-9\]+\\);" 0 "original" } }
 !

diff --git a/gcc/testsuite/gfortran.dg/continuation_9.f90 b/gcc/testsuite/gfortran.dg/continuation_9.f90
index 04a7c331e2e5e0839c06c52d9f893665f6a97baf..87c0cfafa85539c9169cd464320e13f3edf28036 100644 (file)
--- a/gcc/testsuite/gfortran.dg/continuation_9.f90
+++ b/gcc/testsuite/gfortran.dg/continuation_9.f90
@@ -4,6 +4,6 @@
 &
  &
 end
-! { dg-warning "not allowed by itself in line 3" "" {target "*-*-*"} 0 }
-! { dg-warning "not allowed by itself in line 4" "" {target "*-*-*"} 0 }
-! { dg-warning "not allowed by itself in line 5" "" {target "*-*-*"} 0 }
+! { dg-warning "not allowed by itself in line 3" "" { target *-*-* } 0 }
+! { dg-warning "not allowed by itself in line 4" "" { target *-*-* } 0 }
+! { dg-warning "not allowed by itself in line 5" "" { target *-*-* } 0 }

diff --git a/gcc/testsuite/gfortran.dg/move_alloc_13.f90 b/gcc/testsuite/gfortran.dg/move_alloc_13.f90
index 9c3e0bcd58fdeefecbff349c0d21ef37388f25c0..f889e11a58ef734dc1cef811d803976687a75900 100644 (file)
--- a/gcc/testsuite/gfortran.dg/move_alloc_13.f90
+++ b/gcc/testsuite/gfortran.dg/move_alloc_13.f90
@@ -1,4 +1,4 @@
-! { dg-do run}
+! { dg-do run }
 !
 ! PR fortran/51970
 ! PR fortran/51977

diff --git a/gcc/testsuite/gfortran.dg/structure_constructor_11.f90 b/gcc/testsuite/gfortran.dg/structure_constructor_11.f90
index 167f8e76cf451b357aaf704f8a2774e1c5eb4bc2..b1eb3cf5206f3c5122b7af1f67e4429fd995b286 100644 (file)
--- a/gcc/testsuite/gfortran.dg/structure_constructor_11.f90
+++ b/gcc/testsuite/gfortran.dg/structure_constructor_11.f90
@@ -1,4 +1,4 @@
-! { dg-do run}
+! { dg-do run }
 ! { dg-options "-fdump-tree-original" }
 !
 ! PR fortran/54603

diff --git a/gcc/testsuite/gfortran.dg/tab_continuation.f b/gcc/testsuite/gfortran.dg/tab_continuation.f
index 448cd20864e4136d9ac43b3894b74327f82b14eb..65cb7b4a31e1f59a979dfe86ad93f0ad47cfbe28 100644 (file)
--- a/gcc/testsuite/gfortran.dg/tab_continuation.f
+++ b/gcc/testsuite/gfortran.dg/tab_continuation.f
@@ -9,7 +9,7 @@
        INTEGER NAXIS(0:MAPMAX,LUMIN:LUMAX),NAXIS1(0:MAPMAX,LUMIN:LUMAX),
        1NAXIS2(0:MAPMAX,LUMIN:LUMAX),NAXIS3(0:MAPMAX,LUMIN:LUMAX)
        end
-! { dg-warning "Nonconforming tab character in column 1 of line 8" "Nonconforming tab" {target "*-*-*"} 0 }
-! { dg-warning "Nonconforming tab character in column 1 of line 9" "Nonconforming tab" {target "*-*-*"} 0 }
-! { dg-warning "Nonconforming tab character in column 1 of line 10" "Nonconforming tab" {target "*-*-*"} 0 }
-! { dg-warning "Nonconforming tab character in column 1 of line 11" "Nonconforming tab" {target "*-*-*"} 0 }
+! { dg-warning "Nonconforming tab character in column 1 of line 8" "Nonconforming tab" { target *-*-* } 0 }
+! { dg-warning "Nonconforming tab character in column 1 of line 9" "Nonconforming tab" { target *-*-* } 0 }
+! { dg-warning "Nonconforming tab character in column 1 of line 10" "Nonconforming tab" { target *-*-* } 0 }
+! { dg-warning "Nonconforming tab character in column 1 of line 11" "Nonconforming tab" { target *-*-* } 0 }

diff --git a/gcc/testsuite/gfortran.dg/warning-directive-2.F90 b/gcc/testsuite/gfortran.dg/warning-directive-2.F90
index 7e4418530ef8b7c58b56e3243dc35602d7115227..8846cd3225157ba0ad47c2df16dc4fc99aba73c6 100644 (file)
--- a/gcc/testsuite/gfortran.dg/warning-directive-2.F90
+++ b/gcc/testsuite/gfortran.dg/warning-directive-2.F90
@@ -1,5 +1,5 @@
 ! { dg-do preprocess }
 ! { dg-options "-std=f95 -fdiagnostics-show-option -Werror=cpp" }
-! { dg-message "some warnings being treated as errors" "" {target "*-*-*"} 0 } 
+! { dg-message "some warnings being treated as errors" "" { target *-*-* } 0 } 
 #warning "Printed"
 ! { dg-error "\"Printed\" .-Werror=cpp." "" { target *-*-* } 4 }