diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f567a72683ac10e4ed1c2ee4c7604257b7340ac2..738482864822bae27ebda227d6c618b50a9979e2 100644
--- 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 179748c11909a41ded073d59b050cbfdb5aa3db4..aadb62cd96d0021f283cd464ccb77a7625012d71 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 9ce2298f2397e3953be7d137d7e4445f9e055d00..d726b566d01f82b6b1440dcba868f3d0b9117273 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 9829626d2760d6d9aaaba8fa9423eb58c58c370d..8c0e81f8638cb5ef2d48562c5eaca4640b430763 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 0be6b997ae10011a6f2d524bb0ee24ed014644c8..8906934d1c745fb0987682e1f5e9aadb641505cd 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 11fdc1caa477d0f964fc829baa750609b0263538..6a9d7a5314fdb92db16cd06207542dca1131df23 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 5343f2b3a08c6339d21724cf096a55d89852bb25..3dc0a112d07340eeced6c3b25de5fa0f3def78c4 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 b1655e981432d5e85d44d31926fb3b3eb03237a2..465c77c9996deb22f93993269f2b443cbb9cce36 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 6a4fc558a3547981405d181f00589a4c8720a375..5b25d057769f231b4281f93aea98243b4f3798c9 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 0d527f38a5124344476fa3ae672d95c44908960e..04e851220a9ae9ff0242ffec7ad9a225b0951aac 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 90e92bb0e2654addaa5451eb87b93526394e4eb4..15cbf8c8b8cb1cf51eb269d5530e0933573a79b5 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 e26c467bf85beddd934b688dae5d85aaf78c0a86..47c07cb82ad020d96e800bf8407e8795d554329e 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 0638aeaf9ddbe35b24436bc31565185a81323056..5849cfcb2f363fe32c5dbdfd4c12aa99a161d4af 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 614986277a85aaeafc0e9bf2383c3fa850c490d4..b0035f14a7d4f5ebc50e18421cf509b0158254e3 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 ceaa9eb6262994d5d30fa1abf89131cfa7f41ed4..5ae64912e2e2c3c574c35ddffb1ea35d5fb37377 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 83c5268302c9ac1e743720de2358b592ed42298b..d4e1852e200315c5ae661ad59c7fb1d18a9f35d0 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 9275b11b8fd336f6a52b1f691bedc94d8cd08583..31f3d78a4a72410b37e4a8f349c8153b9f99ff12 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 631efaf7b77da25b8d9954323381840d3350faf8..6cbfa6a4eb4f6d2ccfaa0a8dc5f6326abd9a4bef 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 0acebc4c830e5bc5df3cd64a088aabab6e1845a0..8cb8dab6d3accbc4691739542be85a0c116970c4 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