class_66.f90: Fix a dg directive.

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

	* class_66.f90: Fix a dg directive.
	* debug/pr35154-stabs.f: Likewise.
	* dec_d_lines_3.f: Likewise.
	* dec_d_lines_3.f: Likewise.
	* dec_structure_12.f90: Likewise.
	* dec_structure_15.f90: Likewise.
	* deferred_character_31.f90: Likewise.
	* dtio_31.f03: Likewise.
	* dtio_32.f03: Likewise.
	* extends_11.f03: Likewise.
	* integer_plus.f90: Likewise.
	* pdt_25.f03: Likewise.
	* pr58968.f: Likewise.
	* pr78259.f90: Likewise.
	* vect/vect-2.f90: Likewise.
	* matmul_const.f90: Likewise.

From-SVN: r268125

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bb703a1b86ad600571eebe20ab2ad8693e5f003d..96f652746fb92462e9879e016d5194972b559c51 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,22 @@
+2019-01-21  Manfred Schwarbi  <manfred99@gmx.ch>
+
+       * class_66.f90: Fix a dg directive.
+       * debug/pr35154-stabs.f: Likewise.
+       * dec_d_lines_3.f: Likewise.
+       * dec_d_lines_3.f: Likewise.
+       * dec_structure_12.f90: Likewise.
+       * dec_structure_15.f90: Likewise.
+       * deferred_character_31.f90: Likewise.
+       * dtio_31.f03: Likewise.
+       * dtio_32.f03: Likewise.
+       * extends_11.f03: Likewise.
+       * integer_plus.f90: Likewise.
+       * pdt_25.f03: Likewise.
+       * pr58968.f: Likewise.
+       * pr78259.f90: Likewise.
+       * vect/vect-2.f90: Likewise.
+       * matmul_const.f90: Likewise.
+
 2019-01-21  Uroš Bizjak  <ubizjak@gmail.com>
 
        PR target/88938

diff --git a/gcc/testsuite/gfortran.dg/class_66.f90 b/gcc/testsuite/gfortran.dg/class_66.f90
index 475b7b26555462e210b48ab59f4a56c941df059c..8ca269b83b184a25758ab2a125ce16b9801b577c 100644 (file)
--- a/gcc/testsuite/gfortran.dg/class_66.f90
+++ b/gcc/testsuite/gfortran.dg/class_66.f90
@@ -1,4 +1,4 @@
-! { dg- do run }
+! { dg-do run }
 !
 ! Test the fix for PR78641 in which an ICE occured on assignment
 ! of a class array constructor to a derived type array.

diff --git a/gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f b/gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f
index 99f3e2b7a11de00e3a5d62481ef9789a3ac20ca1..5e5c42e9b8fcb46d8104282a96d2ca4304fa3409 100644 (file)
--- a/gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f
+++ b/gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f
@@ -1,7 +1,7 @@
 C     Test program for common block debugging.  G. Helffrich 11 July 2004.
 C { dg-do compile }
 C { dg-skip-if "No stabs" { aarch64*-*-* mmix-*-* alpha*-*-* hppa*64*-*-* ia64-*-* *-*-vxworks* } }
-C { dg-skip-if "No stabs" {*-*-* } { "*" } { "-gstabs" } }
+C { dg-skip-if "No stabs" { *-*-* } { "*" } { "-gstabs" } }
       common i,j
       common /label/l,m
       i = 1

diff --git a/gcc/testsuite/gfortran.dg/dec_d_lines_3.f b/gcc/testsuite/gfortran.dg/dec_d_lines_3.f
index 1e96d750dfbdd7a42ca4c0f2b91ca214d63b8243..11e16d3025bb5ab8b9167375dd35831237c555dc 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dec_d_lines_3.f
+++ b/gcc/testsuite/gfortran.dg/dec_d_lines_3.f
@@ -8,5 +8,5 @@
 
 include 'dec_d_lines_2.f'
 
-! { dg-error "character in statement label" " " { target *-*-*} 6 }
-! { dg-error "character in statement label" " " { target *-*-*} 7 }
+! { dg-error "character in statement label" " " { target *-*-* } 6 }
+! { dg-error "character in statement label" " " { target *-*-* } 7 }

diff --git a/gcc/testsuite/gfortran.dg/dec_structure_12.f90 b/gcc/testsuite/gfortran.dg/dec_structure_12.f90
index b6cc5aa12edc2ba6e584fe6fa42cc96babf59e6b..720d6ddc5d072a6a2c2f0d3dcc53dba64f269038 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dec_structure_12.f90
+++ b/gcc/testsuite/gfortran.dg/dec_structure_12.f90
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-fdec-structure" }
 !
 ! Test a regression where multiple anonymous structures failed to

diff --git a/gcc/testsuite/gfortran.dg/dec_structure_15.f90 b/gcc/testsuite/gfortran.dg/dec_structure_15.f90
index 33f51266c0f77b27a955b9755d7e688aa7bca121..a61cc9d85b11f0be90f7757a84a6a7baa2a402f3 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dec_structure_15.f90
+++ b/gcc/testsuite/gfortran.dg/dec_structure_15.f90
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "" }
 !
 ! PR fortran/77584

diff --git a/gcc/testsuite/gfortran.dg/deferred_character_31.f90 b/gcc/testsuite/gfortran.dg/deferred_character_31.f90
index 890b33e82df748fdcfad781f016c1de937facd0e..db1abd3df84b1c6af55892be701e1e42c3682028 100644 (file)
--- a/gcc/testsuite/gfortran.dg/deferred_character_31.f90
+++ b/gcc/testsuite/gfortran.dg/deferred_character_31.f90
@@ -1,4 +1,4 @@
-! { dg-do }
+! { dg-do run }
 !
 ! Test the fix for PR71880 in which the string length for 'p'
 ! was not set for the pointer assignment.

diff --git a/gcc/testsuite/gfortran.dg/dtio_31.f03 b/gcc/testsuite/gfortran.dg/dtio_31.f03
index 9d622a21b5aa817d96fb100dd92e05cab2aba923..2a8fa1ead77316bc5d27fd5fa105b61bc0c9f61e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dtio_31.f03
+++ b/gcc/testsuite/gfortran.dg/dtio_31.f03
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options="-w" }
+! { dg-options "-w" }
 ! PR fortran/79383
 ! Contributed by Walt Brainerd <walt.brainerd at gmail dot com>
 module dollar_mod

diff --git a/gcc/testsuite/gfortran.dg/dtio_32.f03 b/gcc/testsuite/gfortran.dg/dtio_32.f03
index 254a47eb94d4858340d609150337f95ea6092069..4bad640ae8041f7bd6b64ce58346e97905cb7a2a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/dtio_32.f03
+++ b/gcc/testsuite/gfortran.dg/dtio_32.f03
@@ -1,5 +1,5 @@
 ! { dg-do run }
-! { dg-options="-w" }
+! { dg-options "-w" }
 ! PR fortran/79383
 ! Contributed by Walt Brainerd <walt.brainerd at gmail dot com>
 module dollar_mod

diff --git a/gcc/testsuite/gfortran.dg/extends_11.f03 b/gcc/testsuite/gfortran.dg/extends_11.f03
index 7b32cdf547f822c927474b5ffb62564d7b0623e7..2f19225d703d5d927f545da8a952b8c8d56953d5 100644 (file)
--- a/gcc/testsuite/gfortran.dg/extends_11.f03
+++ b/gcc/testsuite/gfortran.dg/extends_11.f03
@@ -37,4 +37,4 @@
   recruit%service%education%person%ss = 9
 end
 
-! { dg-final { scan-tree-dump-times " +recruit\\.service\\.education\\.person\\.ss =" 8 "original"} }
+! { dg-final { scan-tree-dump-times " +recruit\\.service\\.education\\.person\\.ss =" 8 "original" } }

diff --git a/gcc/testsuite/gfortran.dg/integer_plus.f90 b/gcc/testsuite/gfortran.dg/integer_plus.f90
index 64c4b1c985352b5405d5813f066bffafd5466e52..242835be8d09bc1fa251e86bedb6a8e71946a987 100644 (file)
--- a/gcc/testsuite/gfortran.dg/integer_plus.f90
+++ b/gcc/testsuite/gfortran.dg/integer_plus.f90
@@ -1,4 +1,4 @@
-! { dg-run run )
+! { dg-do run }
 ! PR83560 list-directed formatting of INTEGER is missing plus on output
 ! when output open with SIGN='PLUS'
 character(64) :: astring

diff --git a/gcc/testsuite/gfortran.dg/matmul_const.f90 b/gcc/testsuite/gfortran.dg/matmul_const.f90
index 11cc31ab26abdf7c0cd64edccb14d3bd211cf982..ab186fdd88361439176cbfec8636968a0c25de68 100644 (file)
--- a/gcc/testsuite/gfortran.dg/matmul_const.f90
+++ b/gcc/testsuite/gfortran.dg/matmul_const.f90
@@ -7,4 +7,4 @@ program main
   write (unit=line,fmt='(9i3)') matmul(A,B)
   if (line /= '  5  7  9  5  7  9  5  7  9') STOP 1
 end program main
-!  dg-final { scan-tree-dump-times "matmul_i4" 0 "original" } }
+! { dg-final { scan-tree-dump-times "matmul_i4" 0 "original" } }

diff --git a/gcc/testsuite/gfortran.dg/pdt_25.f03 b/gcc/testsuite/gfortran.dg/pdt_25.f03
index f233996129eec687abddd17a0b415bb38c10d0f9..548eb193a52befcd0aebbef18498582262247b0e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pdt_25.f03
+++ b/gcc/testsuite/gfortran.dg/pdt_25.f03
@@ -1,4 +1,4 @@
-! {dg-do run }
+! { dg-do run }
 !
 ! Tests the fix for PR82978 in which all the parameterized string
 ! lengths with the same value of parameter 'k' had the same value

diff --git a/gcc/testsuite/gfortran.dg/pr58968.f b/gcc/testsuite/gfortran.dg/pr58968.f
index db06d50fa27fac95d83330bb01d1969c8f390c52..b6ea17f4ae2d21efd3bd4c0328ecdeadf029c600 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr58968.f
+++ b/gcc/testsuite/gfortran.dg/pr58968.f
@@ -1,5 +1,5 @@
 C PR rtl-optimization/58968.f
-C { dg-do compile { target powerpc*-*-*} }
+C { dg-do compile { target powerpc*-*-* } }
 C { dg-options "-mcpu=power7 -O3 -w -ffast-math  -funroll-loops" }
       SUBROUTINE MAKTABS(IW,SOME,LBOX1,LBOX2,LBOX3,NSPACE,NA,NB,
      *            LBST,X,

diff --git a/gcc/testsuite/gfortran.dg/pr78259.f90 b/gcc/testsuite/gfortran.dg/pr78259.f90
index 82f48ea5f3e23b89d5ee5fc67d2ac8c7ce1e115f..4c40aacbcb7b8b7a8b4f9e8a4cffa88cb933b678 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr78259.f90
+++ b/gcc/testsuite/gfortran.dg/pr78259.f90
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-fdec-structure" }
 !
 ! PR fortran/78259

diff --git a/gcc/testsuite/gfortran.dg/vect/vect-2.f90 b/gcc/testsuite/gfortran.dg/vect/vect-2.f90
index 956a05cc47cfee006c0cf3466c6f787989bd5a84..f5dda6c1e939d381af2d7b5aa99464d6caa37f2a 100644 (file)
--- a/gcc/testsuite/gfortran.dg/vect/vect-2.f90
+++ b/gcc/testsuite/gfortran.dg/vect/vect-2.f90
@@ -16,4 +16,4 @@ END
 ! support unaligned loads).
 
 ! { dg-final { scan-tree-dump-times "vectorized 3 loops" 1 "vect" } }
-! { dg-final { scan-tree-dump-times "Alignment of access forced using versioning." 3 "vect" {target { { vect_no_align && { ! vect_hw_misalign } } || { { ! vector_alignment_reachable  } && { ! vect_hw_misalign } } } } } }
+! { dg-final { scan-tree-dump-times "Alignment of access forced using versioning." 3 "vect" { target { { vect_no_align && { ! vect_hw_misalign } } || { { ! vector_alignment_reachable  } && { ! vect_hw_misalign } } } } } }