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
This commit is contained in:
Manfred Schwarb
Dominique d'Humieres
parent
255b2d916e
commit
4d8516587a
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 }
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { dg-do "compile" }
|
||||
! { dg-do compile }
|
||||
! { dg-options "-fdec-structure" }
|
||||
!
|
||||
! Test a regression where multiple anonymous structures failed to
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { dg-do "compile" }
|
||||
! { dg-do compile }
|
||||
! { dg-options "" }
|
||||
!
|
||||
! PR fortran/77584
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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" } }
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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" } }
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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,
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
! { dg-do "compile" }
|
||||
! { dg-do compile }
|
||||
! { dg-options "-fdec-structure" }
|
||||
!
|
||||
! PR fortran/78259
|
||||
|
|
|
|||
|
|
@ -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 } } } } } }
|
||||
|
|
|
|||
Loading…
Reference in New Issue