2013-01-14 Harald Anlauf <anlauf@gmx.de>

	* 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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f567a72..7384828 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,24 @@
+2013-01-14  Harald Anlauf  <anlauf@gmx.de>
+
+       * 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  <pault@gcc.gnu.org>
 
        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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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..47c07cb 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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