procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

class_66.f90: Fix a dg directive.

Browse source 
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
This commit is contained in:
Manfred Schwarb 2019-01-21 22:40:21 +01:00 • committed by Dominique d'Humieres
parent 255b2d916e
commit 4d8516587a
16 changed files with 35 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gcc/testsuite/ChangeLog
View 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

2
gcc/testsuite/gfortran.dg/class_66.f90
View 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.

2
gcc/testsuite/gfortran.dg/debug/pr35154-stabs.f
View 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

4
gcc/testsuite/gfortran.dg/dec_d_lines_3.f
View 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 }

2
gcc/testsuite/gfortran.dg/dec_structure_12.f90
View file

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
! { dg-options "-fdec-structure" }
!
! Test a regression where multiple anonymous structures failed to

2
gcc/testsuite/gfortran.dg/dec_structure_15.f90
View file

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
! { dg-options "" }
!
! PR fortran/77584

2
gcc/testsuite/gfortran.dg/deferred_character_31.f90
View 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.

2
gcc/testsuite/gfortran.dg/dtio_31.f03
View 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

2
gcc/testsuite/gfortran.dg/dtio_32.f03
View 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

2
gcc/testsuite/gfortran.dg/extends_11.f03
View 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" } }

2
gcc/testsuite/gfortran.dg/integer_plus.f90
View 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

2
gcc/testsuite/gfortran.dg/matmul_const.f90
View 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" } }

2
gcc/testsuite/gfortran.dg/pdt_25.f03
View 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

2
gcc/testsuite/gfortran.dg/pr58968.f
View 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,

2
gcc/testsuite/gfortran.dg/pr78259.f90
View file

@ -1,4 +1,4 @@
! { dg-do "compile" }
! { dg-do compile }
! { dg-options "-fdec-structure" }
!
! PR fortran/78259

2
gcc/testsuite/gfortran.dg/vect/vect-2.f90
View 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 } } } } } }