I have committed the following patch to the gcc-8-branch as r268158 after a regtest.
Dominique Index: gcc/testsuite/ChangeLog =================================================================== --- gcc/testsuite/ChangeLog (revision 268156) +++ gcc/testsuite/ChangeLog (working copy) @@ -1,3 +1,23 @@ +2019-01-22 Manfred Schwarb <manfre...@gmx.ch> + + * gfortran.dg/array_function_5.f90: : Fix a dg directive. + * gfortran.dg/class_66.f90: Likewise. + * gfortran.dg/dec_structure_12.f90: Likewise. + * gfortran.dg/dec_structure_14.f90: Likewise. + * gfortran.dg/dec_structure_15.f90: Likewise. + * gfortran.dg/dtio_31.f03: Likewise. + * gfortran.dg/dtio_32.f03: Likewise. + * gfortran.dg/extends_11.f03: Likewise. + * gfortran.dg/integer_plus.f90: Likewise. + * gfortran.dg/matmul_const.f90: Likewise. + * gfortran.dg/namelist_96.f90: Likewise. + * gfortran.dg/pdt_25.f03: Likewise. + * gfortran.dg/pdt_28.f03: Likewise. + * gfortran.dg/pr58968.f: Likewise. + * gfortran.dg/pr78259.f90: Likewise. + * gfortran.dg/debug/pr35154-stabs.f: Likewise. + * gfortran.dg/vect/vect-2.f90: Likewise. + 2019-01-22 Uroš Bizjak <ubiz...@gmail.com> PR target/88938 Index: gcc/testsuite/gfortran.dg/array_function_5.f90 =================================================================== --- gcc/testsuite/gfortran.dg/array_function_5.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/array_function_5.f90 (working copy) @@ -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 <jvdeli...@gcc.gnu.org> ! Original test case by Chris <cmkl...@hetnet.nl> Index: gcc/testsuite/gfortran.dg/class_66.f90 =================================================================== --- gcc/testsuite/gfortran.dg/class_66.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/class_66.f90 (working copy) @@ -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: gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f =================================================================== --- gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f (revision 268156) +++ gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f (working copy) @@ -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: gcc/testsuite/gfortran.dg/dec_structure_12.f90 =================================================================== --- gcc/testsuite/gfortran.dg/dec_structure_12.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/dec_structure_12.f90 (working copy) @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-fdec-structure" } ! ! Test a regression where multiple anonymous structures failed to Index: gcc/testsuite/gfortran.dg/dec_structure_14.f90 =================================================================== --- gcc/testsuite/gfortran.dg/dec_structure_14.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/dec_structure_14.f90 (working copy) @@ -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 Index: gcc/testsuite/gfortran.dg/dec_structure_15.f90 =================================================================== --- gcc/testsuite/gfortran.dg/dec_structure_15.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/dec_structure_15.f90 (working copy) @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "" } ! ! PR fortran/77584 Index: gcc/testsuite/gfortran.dg/dtio_31.f03 =================================================================== --- gcc/testsuite/gfortran.dg/dtio_31.f03 (revision 268156) +++ gcc/testsuite/gfortran.dg/dtio_31.f03 (working copy) @@ -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: gcc/testsuite/gfortran.dg/dtio_32.f03 =================================================================== --- gcc/testsuite/gfortran.dg/dtio_32.f03 (revision 268156) +++ gcc/testsuite/gfortran.dg/dtio_32.f03 (working copy) @@ -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: gcc/testsuite/gfortran.dg/extends_11.f03 =================================================================== --- gcc/testsuite/gfortran.dg/extends_11.f03 (revision 268156) +++ gcc/testsuite/gfortran.dg/extends_11.f03 (working copy) @@ -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: gcc/testsuite/gfortran.dg/integer_plus.f90 =================================================================== --- gcc/testsuite/gfortran.dg/integer_plus.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/integer_plus.f90 (working copy) @@ -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: gcc/testsuite/gfortran.dg/matmul_const.f90 =================================================================== --- gcc/testsuite/gfortran.dg/matmul_const.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/matmul_const.f90 (working copy) @@ -7,4 +7,4 @@ 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: gcc/testsuite/gfortran.dg/namelist_96.f90 =================================================================== --- gcc/testsuite/gfortran.dg/namelist_96.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/namelist_96.f90 (working copy) @@ -1,4 +1,4 @@ -! ( dg-do run } +! { dg-do run } program pr88776 implicit none character(*), parameter :: file = "pr88776.dat" Index: gcc/testsuite/gfortran.dg/pdt_25.f03 =================================================================== --- gcc/testsuite/gfortran.dg/pdt_25.f03 (revision 268156) +++ gcc/testsuite/gfortran.dg/pdt_25.f03 (working copy) @@ -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: gcc/testsuite/gfortran.dg/pdt_28.f03 =================================================================== --- gcc/testsuite/gfortran.dg/pdt_28.f03 (revision 268156) +++ gcc/testsuite/gfortran.dg/pdt_28.f03 (working copy) @@ -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'. Index: gcc/testsuite/gfortran.dg/pr58968.f =================================================================== --- gcc/testsuite/gfortran.dg/pr58968.f (revision 268156) +++ gcc/testsuite/gfortran.dg/pr58968.f (working copy) @@ -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: gcc/testsuite/gfortran.dg/pr78259.f90 =================================================================== --- gcc/testsuite/gfortran.dg/pr78259.f90 (revision 268156) +++ gcc/testsuite/gfortran.dg/pr78259.f90 (working copy) @@ -1,4 +1,4 @@ -! { dg-do "compile" } +! { dg-do compile } ! { dg-options "-fdec-structure" } ! ! PR fortran/78259 Index: gcc/testsuite/gfortran.dg/vect/vect-2.f90 =================================================================== --- branches/gcc-8-branch/gcc/testsuite/gfortran.dg/vect/vect-2.f90 2019/01/22 16:35:53 268157 +++ branches/gcc-8-branch/gcc/testsuite/gfortran.dg/vect/vect-2.f90 2019/01/22 16:39:09 268158 @@ -16,4 +16,4 @@ ! 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 } } } } } }