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 bbf04da7a58aa5e09dc4886ddf818488b4dc4f40..1b61a3d8803755206ec6dd741b8f141c8f43c4e6 100644 (file)
--- 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 c5e5aa0de3aee3f2b56526264490f291eba3307d..7ac97f03b20bc193400b58773b1f812e5bf8feb0 100644 (file)
--- 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 165c719cbbea76124489741cea6c76d98e3f617d..e3b904fa8749092dc3c2fe01ce2f81717a884198 100644 (file)
--- 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 4e271b7390f34b3afe4b38977e2ac4f3cebb3613..0079e6c1c29b0b368dcfeb84772c8cc2a2331335 100644 (file)
--- 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 5606e1f775408caf7b0cbeb048dcfb0d9eacfd91..9a956ee922d5528ba2947a3aab6285264b5f91d1 100644 (file)
--- 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 (file)
index 0000000..8821b9f
--- /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 (file)
index de3eb00..0000000
--- 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 c0dc1a0d1be7414325bbbddeda978fc21fd381c0..de687913c763967eccbb7be53379b209ade06c93 100644 (file)
--- 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 afc254ac39aeeb72e252989a321729e383af6508..ba28639e0ff47883dbc932b1c40e5ec11c7e8851 100644 (file)
--- 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