From 6a69c94585d2af9b8eddb581db2b454d49e82f1e Mon Sep 17 00:00:00 2001
From: tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 20 Jan 2005 22:48:56 +0000
Subject: * gfortran.dg/data_char_1.f90: Fix typo, add dg-do directive. *
 gfortran.dg/direct_io_1.f90: Add dg-do directive. * gfortran.dg/entry_1.f90:
 Fix typo, add dg-do directive. * gfortran.dg/getenv_1.f90: Add dg-do
 directive. * gfortran.dg/pr16597.f90, gfortran.dg/pr17143.f90,
 gfortran.dg/pr17164.f90: Add missing dg-do directives.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@93994 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                   | 9 +++++++++
 gcc/testsuite/gfortran.dg/data_char_1.f90 | 3 ++-
 gcc/testsuite/gfortran.dg/direct_io_1.f90 | 1 +
 gcc/testsuite/gfortran.dg/entry_1.f90     | 3 ++-
 gcc/testsuite/gfortran.dg/getenv_1.f90    | 2 +-
 gcc/testsuite/gfortran.dg/pr16597.f90     | 1 +
 gcc/testsuite/gfortran.dg/pr17143.f90     | 1 +
 gcc/testsuite/gfortran.dg/pr17164.f90     | 1 +
 8 files changed, 18 insertions(+), 3 deletions(-)

(limited to 'gcc/testsuite')

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a4947d63494..dde2d0524dd 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+2005-01-20  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* gfortran.dg/data_char_1.f90: Fix typo, add dg-do directive.
+	* gfortran.dg/direct_io_1.f90: Add dg-do directive.
+	* gfortran.dg/entry_1.f90: Fix typo, add dg-do directive.
+	* gfortran.dg/getenv_1.f90: Add dg-do directive.
+	* gfortran.dg/pr16597.f90, gfortran.dg/pr17143.f90,
+	gfortran.dg/pr17164.f90: Add missing dg-do directives.
+
 2005-01-20  Kazu Hirata  <kazu@cs.umass.edu>
 
 	PR tree-optimization/15349
diff --git a/gcc/testsuite/gfortran.dg/data_char_1.f90 b/gcc/testsuite/gfortran.dg/data_char_1.f90
index a2acf1ed165..cce31af6c4a 100644
--- a/gcc/testsuite/gfortran.dg/data_char_1.f90
+++ b/gcc/testsuite/gfortran.dg/data_char_1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Test character variables in data statements
 ! Also substrings of cahracter variables.
 ! PR14976 PR16228 
@@ -8,5 +9,5 @@ program data_char_1
   data b(:)(1:4), b(1)(5:5), b(2)(5:5) /'abcdefg', 'hi', 'j', 'k'/
   
   if ((a(1) .ne. 'Hello') .or. (a(2) .ne. 'orld ')) call abort
-  if ((b(1) .ne. 'adcdl') .or. (b(2) .ne. 'hi  l')) call abort
+  if ((b(1) .ne. 'abcdj') .or. (b(2) .ne. 'hi  k')) call abort
 end program
diff --git a/gcc/testsuite/gfortran.dg/direct_io_1.f90 b/gcc/testsuite/gfortran.dg/direct_io_1.f90
index db79c6e9598..92eff2942b4 100644
--- a/gcc/testsuite/gfortran.dg/direct_io_1.f90
+++ b/gcc/testsuite/gfortran.dg/direct_io_1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! PR 16908
 ! Segfaulted on second set of writes.  We weren't handling partial records
 ! properly when calculating the file position.
diff --git a/gcc/testsuite/gfortran.dg/entry_1.f90 b/gcc/testsuite/gfortran.dg/entry_1.f90
index 0e7f296ce1b..dae868ec851 100644
--- a/gcc/testsuite/gfortran.dg/entry_1.f90
+++ b/gcc/testsuite/gfortran.dg/entry_1.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! Test alternate entry points in a module procedure
 ! Also check that references to sibling entry points are resolved correctly.
 module m
@@ -11,7 +12,7 @@ end subroutine
 
 subroutine test1
   implicit none
-  call indidecta (foo)
+  call indirecta (foo)
   call indirectb (bar)
 end subroutine
 
diff --git a/gcc/testsuite/gfortran.dg/getenv_1.f90 b/gcc/testsuite/gfortran.dg/getenv_1.f90
index 8a96bd7f6eb..fb0a809e643 100644
--- a/gcc/testsuite/gfortran.dg/getenv_1.f90
+++ b/gcc/testsuite/gfortran.dg/getenv_1.f90
@@ -1,4 +1,4 @@
-! { dg do-run }
+! { dg-do run }
 ! Test the getenv and get_environment_variable intrinsics.
 ! Ignore the return value because it's not supported/meaningful on all targets
 program getenv_1
diff --git a/gcc/testsuite/gfortran.dg/pr16597.f90 b/gcc/testsuite/gfortran.dg/pr16597.f90
index ff1dcb838ae..071bf86d613 100644
--- a/gcc/testsuite/gfortran.dg/pr16597.f90
+++ b/gcc/testsuite/gfortran.dg/pr16597.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! pr 16597
 ! libgfortran
 ! reading a direct access record after it was written did
diff --git a/gcc/testsuite/gfortran.dg/pr17143.f90 b/gcc/testsuite/gfortran.dg/pr17143.f90
index 4be4e2b92b9..0ebcbdacc37 100644
--- a/gcc/testsuite/gfortran.dg/pr17143.f90
+++ b/gcc/testsuite/gfortran.dg/pr17143.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! pr17143
 ! does not print 2*63 correctly
        character*25 l
diff --git a/gcc/testsuite/gfortran.dg/pr17164.f90 b/gcc/testsuite/gfortran.dg/pr17164.f90
index 0cfd9941774..a0dfff9aa00 100644
--- a/gcc/testsuite/gfortran.dg/pr17164.f90
+++ b/gcc/testsuite/gfortran.dg/pr17164.f90
@@ -1,3 +1,4 @@
+! { dg-do run }
 ! pr17164
 ! index aborts when substring is longer than string
       implicit none
-- 
cgit v1.2.1