From: Manfred Schwarb <manfred99@gmx.ch>
Date: Tue, 22 Jan 2019 13:12:36 +0000 (+0100)
Subject: array_function_5.f90: Fix a dg directive.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=50d6ec8cff304c6176b58fa1c44c17d057caa058;p=gcc.git

array_function_5.f90: Fix a dg directive.

2019-01-22  Manfred Schwarb  <manfred99@gmx.ch>

	* gfortran.dg/array_function_5.f90: Fix a dg directive.
	* gfortran.dg/block_16.f08: Likewise.
	* gfortran.dg/dec_structure_14.f90: Likewise.
	* gfortran.dg/namelist_96.f90: Likewise.
	* gfortran.dg/newunit_5.f90.f90: Moved to
	* gfortran.dg/newunit_5.f90: here.
	* gfortran.dg/pdt_28.f03: Likewise.
	* gfortran.dg/spread_simplify_1.f90: Likewise.

From-SVN: r268148
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bbf04da7a58..1b61a3d8803 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,14 @@
+2019-01-22  Manfred Schwarb  <manfred99@gmx.ch>
+
+	* gfortran.dg/array_function_5.f90: Fix a dg directive.
+	* gfortran.dg/block_16.f08: Likewise.
+	* gfortran.dg/dec_structure_14.f90: Likewise.
+	* gfortran.dg/namelist_96.f90: Likewise.
+	* gfortran.dg/newunit_5.f90.f90: Moved to
+	* gfortran.dg/newunit_5.f90: here.
+	* gfortran.dg/pdt_28.f03: Likewise.
+	* gfortran.dg/spread_simplify_1.f90: Likewise.
+
 2019-01-22  Tamar Christina  <tamar.christina@arm.com>
 
 	PR/tree-optimization 88903
diff --git a/gcc/testsuite/gfortran.dg/array_function_5.f90 b/gcc/testsuite/gfortran.dg/array_function_5.f90
index c5e5aa0de3a..7ac97f03b20 100644
--- a/gcc/testsuite/gfortran.dg/array_function_5.f90
+++ b/gcc/testsuite/gfortran.dg/array_function_5.f90
@@ -1,4 +1,4 @@
-! {  dg-do run }
+! { dg-do run }
 ! PR41278 internal compiler error related to matmul and transpose
 ! Test case prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 ! Original test case by Chris <cmklaij@hetnet.nl>
diff --git a/gcc/testsuite/gfortran.dg/block_16.f08 b/gcc/testsuite/gfortran.dg/block_16.f08
index 165c719cbbe..e3b904fa874 100644
--- a/gcc/testsuite/gfortran.dg/block_16.f08
+++ b/gcc/testsuite/gfortran.dg/block_16.f08
@@ -1,4 +1,4 @@
-! { dg-do compile )
+! { dg-do compile }
 ! PR82009  [F08] ICE with block construct
 MODULE sparse_matrix_csx_benchmark_utils
   IMPLICIT NONE
diff --git a/gcc/testsuite/gfortran.dg/dec_structure_14.f90 b/gcc/testsuite/gfortran.dg/dec_structure_14.f90
index 4e271b7390f..0079e6c1c29 100644
--- a/gcc/testsuite/gfortran.dg/dec_structure_14.f90
+++ b/gcc/testsuite/gfortran.dg/dec_structure_14.f90
@@ -1,4 +1,4 @@
-  ! { dg-do "compile" }
+  ! { dg-do compile }
   ! { dg-options "-fdec-structure" }
   !
   ! Test that structures inside a common block do not require the
diff --git a/gcc/testsuite/gfortran.dg/namelist_96.f90 b/gcc/testsuite/gfortran.dg/namelist_96.f90
index 5606e1f7754..9a956ee922d 100644
--- a/gcc/testsuite/gfortran.dg/namelist_96.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_96.f90
@@ -1,4 +1,4 @@
-! ( dg-do run }
+! { dg-do run }
 program pr88776
   implicit none
   character(*), parameter :: file = "pr88776.dat"
diff --git a/gcc/testsuite/gfortran.dg/newunit_5.f90 b/gcc/testsuite/gfortran.dg/newunit_5.f90
new file mode 100644
index 00000000000..8821b9f0505
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/newunit_5.f90
@@ -0,0 +1,20 @@
+! { dg-do run }
+! PR83525 Combination of newunit and internal unit was failing.
+program main
+  integer :: funit
+  logical :: isopen
+  integer :: this, another
+  character(len=:), allocatable :: message
+  
+  message = "12"
+  read(message, *) this
+  if (this.ne.12) STOP 1
+  
+  open(newunit=funit, status="scratch")
+  write(funit, *) "13"
+  rewind(funit)
+  read(funit, *) another
+  !write(*,*) another
+  close(funit)
+  if (another.ne.13) STOP 2
+end
diff --git a/gcc/testsuite/gfortran.dg/newunit_5.f90.f90 b/gcc/testsuite/gfortran.dg/newunit_5.f90.f90
deleted file mode 100644
index de3eb000905..00000000000
--- a/gcc/testsuite/gfortran.dg/newunit_5.f90.f90
+++ /dev/null
@@ -1,20 +0,0 @@
-! { dg-do run )
-! PR83525 Combination of newunit and internal unit was failing.
-program main
-  integer :: funit
-  logical :: isopen
-  integer :: this, another
-  character(len=:), allocatable :: message
-  
-  message = "12"
-  read(message, *) this
-  if (this.ne.12) STOP 1
-  
-  open(newunit=funit, status="scratch")
-  write(funit, *) "13"
-  rewind(funit)
-  read(funit, *) another
-  !write(*,*) another
-  close(funit)
-  if (another.ne.13) STOP 2
-end
diff --git a/gcc/testsuite/gfortran.dg/pdt_28.f03 b/gcc/testsuite/gfortran.dg/pdt_28.f03
index c0dc1a0d1be..de687913c76 100644
--- a/gcc/testsuite/gfortran.dg/pdt_28.f03
+++ b/gcc/testsuite/gfortran.dg/pdt_28.f03
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! ( dg-options "-fbounds-check" }
+! { dg-options "-fbounds-check" }
 !
 ! Test the fix for PR83731, where the following failed on the check for the
 ! value of the parameter 'k'.
diff --git a/gcc/testsuite/gfortran.dg/spread_simplify_1.f90 b/gcc/testsuite/gfortran.dg/spread_simplify_1.f90
index afc254ac39a..ba28639e0ff 100644
--- a/gcc/testsuite/gfortran.dg/spread_simplify_1.f90
+++ b/gcc/testsuite/gfortran.dg/spread_simplify_1.f90
@@ -1,4 +1,4 @@
-! { dg-do  run  }
+! { dg-do run }
 ! PR 68426 - simplification used to fail.
   module m
     implicit none