class_66.f90: Fix a dg directive.
authorManfred Schwarb <manfred99@gmx.ch>
Mon, 21 Jan 2019 21:40:21 +0000 (22:40 +0100)
committerDominique d'Humieres <dominiq@gcc.gnu.org>
Mon, 21 Jan 2019 21:40:21 +0000 (22:40 +0100)
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

16 files changed:
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/class_66.f90
gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f
gcc/testsuite/gfortran.dg/dec_d_lines_3.f
gcc/testsuite/gfortran.dg/dec_structure_12.f90
gcc/testsuite/gfortran.dg/dec_structure_15.f90
gcc/testsuite/gfortran.dg/deferred_character_31.f90
gcc/testsuite/gfortran.dg/dtio_31.f03
gcc/testsuite/gfortran.dg/dtio_32.f03
gcc/testsuite/gfortran.dg/extends_11.f03
gcc/testsuite/gfortran.dg/integer_plus.f90
gcc/testsuite/gfortran.dg/matmul_const.f90
gcc/testsuite/gfortran.dg/pdt_25.f03
gcc/testsuite/gfortran.dg/pr58968.f
gcc/testsuite/gfortran.dg/pr78259.f90
gcc/testsuite/gfortran.dg/vect/vect-2.f90

index bb703a1..96f6527 100644 (file)
@@ -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
index 475b7b2..8ca269b 100644 (file)
@@ -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.
index 99f3e2b..5e5c42e 100644 (file)
@@ -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
index 1e96d75..11e16d3 100644 (file)
@@ -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 }
index b6cc5aa..720d6dd 100644 (file)
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-fdec-structure" }
 !
 ! Test a regression where multiple anonymous structures failed to
index 33f5126..a61cc9d 100644 (file)
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "" }
 !
 ! PR fortran/77584
index 890b33e..db1abd3 100644 (file)
@@ -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.
index 9d622a2..2a8fa1e 100644 (file)
@@ -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
index 254a47e..4bad640 100644 (file)
@@ -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
index 7b32cdf..2f19225 100644 (file)
@@ -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" } }
index 64c4b1c..242835b 100644 (file)
@@ -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
index 11cc31a..ab186fd 100644 (file)
@@ -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" } }
index f233996..548eb19 100644 (file)
@@ -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
index db06d50..b6ea17f 100644 (file)
@@ -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,
index 82f48ea..4c40aac 100644 (file)
@@ -1,4 +1,4 @@
-! { dg-do "compile" }
+! { dg-do compile }
 ! { dg-options "-fdec-structure" }
 !
 ! PR fortran/78259
index 956a05c..f5dda6c 100644 (file)
@@ -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 } } } } } }