From 30b2fc65b93b31fd9c2c7c070a31dbba786bbec0 Mon Sep 17 00:00:00 2001
From: Harald Anlauf <anlauf@gmx.de>
Date: Mon, 14 Jan 2013 14:03:11 +0000
Subject: [PATCH] aint_anint_1.f90: Add dg-do run.
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.
From-SVN: r195146
---
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 +-
.../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 +
.../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 f567a72683ac..738482864822 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 179748c11909..aadb62cd96d0 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 9ce2298f2397..d726b566d01f 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 9829626d2760..8c0e81f8638c 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 0be6b997ae10..8906934d1c74 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 11fdc1caa477..6a9d7a5314fd 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 5343f2b3a08c..3dc0a112d073 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 b1655e981432..465c77c9996d 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 6a4fc558a354..5b25d057769f 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 0d527f38a512..04e851220a9a 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 90e92bb0e265..15cbf8c8b8cb 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 e26c467bf85b..47c07cb82ad0 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 0638aeaf9ddb..5849cfcb2f36 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 614986277a85..b0035f14a7d4 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 ceaa9eb62629..5ae64912e2e2 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 83c5268302c9..d4e1852e2003 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 9275b11b8fd3..31f3d78a4a72 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 631efaf7b77d..6cbfa6a4eb4f 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 0acebc4c830e..8cb8dab6d3ac 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
--
GitLab