From 6b5bee3af8a3ed1f550df7909b45ae102452f067 Mon Sep 17 00:00:00 2001 From: mikael Date: Mon, 14 Jan 2013 14:03:11 +0000 Subject: [PATCH] 2013-01-14 Harald Anlauf * gfortran.dg/aint_anint_1.f90: Add dg-do run. * gfortran.dg/bounds_check_4.f90: Likewise. * gfortran.dg/inquire_10.f90: Likewise. * gfortran.dg/minloc_3.f90: Likewise. * gfortran.dg/minlocval_3.f90: Likewise. * gfortran.dg/module_double_reuse.f90: Likewise. * gfortran.dg/mvbits_1.f90: Likewise. * gfortran.dg/oldstyle_1.f90: Likewise. * gfortran.dg/pr20163-2.f: Likewise. * gfortran.dg/save_1.f90: Likewise. * gfortran.dg/scan_1.f90: Likewise. * gfortran.dg/select_char_1.f90: Likewise. * gfortran.dg/shape_4.f90: Likewise. * gfortran.dg/coarray_29_2.f90: Fix dg-do directive. * gfortran.dg/function_optimize_10.f90: Likewise. * gfortran.dg/gomp/appendix-a/a.11.2.f90: Likewise. * gfortran.dg/used_types_17.f90: Likewise. * gfortran.dg/used_types_18.f90: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@195146 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 21 +++++++++++++++++++++ gcc/testsuite/gfortran.dg/aint_anint_1.f90 | 1 + gcc/testsuite/gfortran.dg/bounds_check_4.f90 | 1 + gcc/testsuite/gfortran.dg/coarray_29_2.f90 | 2 +- gcc/testsuite/gfortran.dg/function_optimize_10.f90 | 2 +- .../gfortran.dg/gomp/appendix-a/a.11.2.f90 | 2 +- gcc/testsuite/gfortran.dg/inquire_10.f90 | 1 + gcc/testsuite/gfortran.dg/minloc_3.f90 | 1 + gcc/testsuite/gfortran.dg/minlocval_3.f90 | 1 + gcc/testsuite/gfortran.dg/module_double_reuse.f90 | 1 + gcc/testsuite/gfortran.dg/mvbits_1.f90 | 1 + gcc/testsuite/gfortran.dg/oldstyle_1.f90 | 1 + gcc/testsuite/gfortran.dg/pr20163-2.f | 1 + gcc/testsuite/gfortran.dg/save_1.f90 | 1 + gcc/testsuite/gfortran.dg/scan_1.f90 | 1 + gcc/testsuite/gfortran.dg/select_char_1.f90 | 1 + gcc/testsuite/gfortran.dg/shape_4.f90 | 1 + gcc/testsuite/gfortran.dg/used_types_17.f90 | 2 +- gcc/testsuite/gfortran.dg/used_types_18.f90 | 2 +- 19 files changed, 39 insertions(+), 5 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f567a72..7384828 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,24 @@ +2013-01-14 Harald Anlauf + + * gfortran.dg/aint_anint_1.f90: Add dg-do run. + * gfortran.dg/bounds_check_4.f90: Likewise. + * gfortran.dg/inquire_10.f90: Likewise. + * gfortran.dg/minloc_3.f90: Likewise. + * gfortran.dg/minlocval_3.f90: Likewise. + * gfortran.dg/module_double_reuse.f90: Likewise. + * gfortran.dg/mvbits_1.f90: Likewise. + * gfortran.dg/oldstyle_1.f90: Likewise. + * gfortran.dg/pr20163-2.f: Likewise. + * gfortran.dg/save_1.f90: Likewise. + * gfortran.dg/scan_1.f90: Likewise. + * gfortran.dg/select_char_1.f90: Likewise. + * gfortran.dg/shape_4.f90: Likewise. + * gfortran.dg/coarray_29_2.f90: Fix dg-do directive. + * gfortran.dg/function_optimize_10.f90: Likewise. + * gfortran.dg/gomp/appendix-a/a.11.2.f90: Likewise. + * gfortran.dg/used_types_17.f90: Likewise. + * gfortran.dg/used_types_18.f90: Likewise. + 2013-01-13 Paul Thomas PR fortran/54286 diff --git a/gcc/testsuite/gfortran.dg/aint_anint_1.f90 b/gcc/testsuite/gfortran.dg/aint_anint_1.f90 index 179748c..aadb62c 100644 --- a/gcc/testsuite/gfortran.dg/aint_anint_1.f90 +++ b/gcc/testsuite/gfortran.dg/aint_anint_1.f90 @@ -1,3 +1,4 @@ +! { dg-do run } program aint_anint_1 implicit none diff --git a/gcc/testsuite/gfortran.dg/bounds_check_4.f90 b/gcc/testsuite/gfortran.dg/bounds_check_4.f90 index 9ce2298..d726b56 100644 --- a/gcc/testsuite/gfortran.dg/bounds_check_4.f90 +++ b/gcc/testsuite/gfortran.dg/bounds_check_4.f90 @@ -1,3 +1,4 @@ +! { dg-do run } subroutine foo(n,x) implicit none integer, intent(in) :: n diff --git a/gcc/testsuite/gfortran.dg/coarray_29_2.f90 b/gcc/testsuite/gfortran.dg/coarray_29_2.f90 index 9829626..8c0e81f 100644 --- a/gcc/testsuite/gfortran.dg/coarray_29_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_29_2.f90 @@ -1,4 +1,4 @@ -! { dg-compile } +! { dg-do compile } ! { dg-options "-fcoarray=single" } ! Requires that coarray_29.f90 has been compiled before diff --git a/gcc/testsuite/gfortran.dg/function_optimize_10.f90 b/gcc/testsuite/gfortran.dg/function_optimize_10.f90 index 0be6b99..8906934 100644 --- a/gcc/testsuite/gfortran.dg/function_optimize_10.f90 +++ b/gcc/testsuite/gfortran.dg/function_optimize_10.f90 @@ -1,4 +1,4 @@ -! { do-do run } +! { dg-do run } ! PR 51858 - this used to generate wrong code. ! Original test case by Don Simons. diff --git a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.11.2.f90 b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.11.2.f90 index 11fdc1c..6a9d7a5 100644 --- a/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.11.2.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/appendix-a/a.11.2.f90 @@ -1,4 +1,4 @@ -! { do-do compile } +! { dg-do compile } SUBROUTINE A11_2(AA, BB, CC, DD, EE, FF, N) INTEGER N diff --git a/gcc/testsuite/gfortran.dg/inquire_10.f90 b/gcc/testsuite/gfortran.dg/inquire_10.f90 index 5343f2b..3dc0a11 100644 --- a/gcc/testsuite/gfortran.dg/inquire_10.f90 +++ b/gcc/testsuite/gfortran.dg/inquire_10.f90 @@ -1,3 +1,4 @@ +! { dg-do run } character(len=800) :: cwd integer :: unit diff --git a/gcc/testsuite/gfortran.dg/minloc_3.f90 b/gcc/testsuite/gfortran.dg/minloc_3.f90 index b1655e9..465c77c 100644 --- a/gcc/testsuite/gfortran.dg/minloc_3.f90 +++ b/gcc/testsuite/gfortran.dg/minloc_3.f90 @@ -1,3 +1,4 @@ +! { dg-do run } real :: a(30), m real, allocatable :: c(:) integer :: e(30), n, ia(1) diff --git a/gcc/testsuite/gfortran.dg/minlocval_3.f90 b/gcc/testsuite/gfortran.dg/minlocval_3.f90 index 6a4fc55..5b25d05 100644 --- a/gcc/testsuite/gfortran.dg/minlocval_3.f90 +++ b/gcc/testsuite/gfortran.dg/minlocval_3.f90 @@ -1,3 +1,4 @@ +! { dg-do run } real :: a(30), b(10, 10), m real, allocatable :: c(:), d(:, :) integer :: e(30), f(10, 10), n diff --git a/gcc/testsuite/gfortran.dg/module_double_reuse.f90 b/gcc/testsuite/gfortran.dg/module_double_reuse.f90 index 0d527f3..04e8512 100644 --- a/gcc/testsuite/gfortran.dg/module_double_reuse.f90 +++ b/gcc/testsuite/gfortran.dg/module_double_reuse.f90 @@ -1,3 +1,4 @@ +! { dg-do run } ! Test of fix for PR18878 ! ! Based on example in PR by Steve Kargl diff --git a/gcc/testsuite/gfortran.dg/mvbits_1.f90 b/gcc/testsuite/gfortran.dg/mvbits_1.f90 index 90e92bb..15cbf8c 100644 --- a/gcc/testsuite/gfortran.dg/mvbits_1.f90 +++ b/gcc/testsuite/gfortran.dg/mvbits_1.f90 @@ -1,3 +1,4 @@ +! { dg-do run } ! PR 25577 ! MVBITS didn't work correctly for integer types wider than a C int ! The testcase is based on the one Dale Ranta posted in the bug report diff --git a/gcc/testsuite/gfortran.dg/oldstyle_1.f90 b/gcc/testsuite/gfortran.dg/oldstyle_1.f90 index e26c467..47c07cb8 100644 --- a/gcc/testsuite/gfortran.dg/oldstyle_1.f90 +++ b/gcc/testsuite/gfortran.dg/oldstyle_1.f90 @@ -1,3 +1,4 @@ +! { dg-do run } integer i, j /1/, g/2/, h ! { dg-warning "" "" } integer k, l(3) /2*2,1/ ! { dg-warning "" "" } real pi /3.1416/, e ! { dg-warning "" "" } diff --git a/gcc/testsuite/gfortran.dg/pr20163-2.f b/gcc/testsuite/gfortran.dg/pr20163-2.f index 0638aea..5849cfc 100644 --- a/gcc/testsuite/gfortran.dg/pr20163-2.f +++ b/gcc/testsuite/gfortran.dg/pr20163-2.f @@ -1,3 +1,4 @@ +! { dg-do run } open(10,status="foo",err=100) ! { dg-warning "STATUS specifier in OPEN statement .* has invalid value" } call abort 100 continue diff --git a/gcc/testsuite/gfortran.dg/save_1.f90 b/gcc/testsuite/gfortran.dg/save_1.f90 index 6149862..b0035f1 100644 --- a/gcc/testsuite/gfortran.dg/save_1.f90 +++ b/gcc/testsuite/gfortran.dg/save_1.f90 @@ -1,3 +1,4 @@ +! { dg-do run } ! { dg-options "-O2 -fno-automatic" } subroutine foo (b) logical b diff --git a/gcc/testsuite/gfortran.dg/scan_1.f90 b/gcc/testsuite/gfortran.dg/scan_1.f90 index ceaa9eb..5ae6491 100644 --- a/gcc/testsuite/gfortran.dg/scan_1.f90 +++ b/gcc/testsuite/gfortran.dg/scan_1.f90 @@ -1,3 +1,4 @@ +! { dg-do run } program b integer w character(len=2) s, t diff --git a/gcc/testsuite/gfortran.dg/select_char_1.f90 b/gcc/testsuite/gfortran.dg/select_char_1.f90 index 83c5268..d4e1852 100644 --- a/gcc/testsuite/gfortran.dg/select_char_1.f90 +++ b/gcc/testsuite/gfortran.dg/select_char_1.f90 @@ -1,3 +1,4 @@ +! { dg-do run } integer function char_select (s) character(len=*), intent(in) :: s diff --git a/gcc/testsuite/gfortran.dg/shape_4.f90 b/gcc/testsuite/gfortran.dg/shape_4.f90 index 9275b11..31f3d78 100644 --- a/gcc/testsuite/gfortran.dg/shape_4.f90 +++ b/gcc/testsuite/gfortran.dg/shape_4.f90 @@ -1,3 +1,4 @@ +! { dg-do run } ! PR 35001 - we need to return 0 for the shapes of ! negative extents. Test case adapted from Tobias Burnus. program main diff --git a/gcc/testsuite/gfortran.dg/used_types_17.f90 b/gcc/testsuite/gfortran.dg/used_types_17.f90 index 631efaf..6cbfa6a 100644 --- a/gcc/testsuite/gfortran.dg/used_types_17.f90 +++ b/gcc/testsuite/gfortran.dg/used_types_17.f90 @@ -1,4 +1,4 @@ -! { dg do-compile } +! { dg-do compile } ! Tests the fix for PR31630, in which the association of the argument ! of 'cmp' did not work. ! diff --git a/gcc/testsuite/gfortran.dg/used_types_18.f90 b/gcc/testsuite/gfortran.dg/used_types_18.f90 index 0acebc4..8cb8dab 100644 --- a/gcc/testsuite/gfortran.dg/used_types_18.f90 +++ b/gcc/testsuite/gfortran.dg/used_types_18.f90 @@ -1,4 +1,4 @@ -! { dg do-compile } +! { dg-do compile } ! { dg-options "-std=f2003" } ! ! Fortran 2003 allowes TYPE without components -- 2.7.4