diff options
author | Manfred Schwarb <manfred99@gmx.ch> | 2013-01-15 22:19:52 +0100 |
---|---|---|
committer | Mikael Morin <mikael@gcc.gnu.org> | 2013-01-15 21:19:52 +0000 |
commit | 97dae02b9f2c7d9912d8740704199b4d05c834e7 (patch) | |
tree | e604aafdbeced3776ee3b37d05d2321f76a6f1c5 /gcc | |
parent | 9fa633fc147de81315152d7d392ccb3486d5e22a (diff) | |
download | gcc-97dae02b9f2c7d9912d8740704199b4d05c834e7.zip gcc-97dae02b9f2c7d9912d8740704199b4d05c834e7.tar.gz gcc-97dae02b9f2c7d9912d8740704199b4d05c834e7.tar.bz2 |
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
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 13 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_4.f90 | 1 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/bounds_check_5.f90 | 1 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/class_array_10.f03 | 2 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_lib_token_4.f90 | 1 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/continuation_9.f90 | 6 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/move_alloc_13.f90 | 2 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/structure_constructor_11.f90 | 2 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/tab_continuation.f | 8 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/warning-directive-2.F90 | 2 |
10 files changed, 26 insertions, 12 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 16d6e88..5ad1cef 100644 --- 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 d726b56..7ede11f 100644 --- 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 3a2fc63..e2e32e3 100644 --- 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 8ca8e0b..9eb3ef7 100644 --- 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 2616d25..43da9f4 100644 --- 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 04a7c33..87c0cfa 100644 --- 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 9c3e0bc..f889e11 100644 --- 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 167f8e7..b1eb3cf 100644 --- 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 448cd20..65cb7b4 100644 --- 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 7e44185..8846cd3 100644 --- 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 } |