OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR testsuite/40426 (Revision 148408 caused many DWARF tests faulures) 

PR testsuite/40426
	* lib/gcc-dg.exp (gcc-dg-debug-runtest): For type -gdwarf-2 and
	level != "" use separate -gdwarf-2 -g${level} options instead of
	-gdwarf-2${level}.
	* lib/gfortran-dg.exp (gfortran-dg-debug-runtest): Likewise.
	* gfortran.dg/debug/pr37738.f: Also skip if -gdwarf-2 -g1.
	* gfortran.dg/debug/pr35154-dwarf2.f: Likewise.

From-SVN: r148497
This commit is contained in:
Jakub Jelinek 2009-06-15 19:08:02 +02:00 committed by Jakub Jelinek
parent 19751f1ff2
commit 4250d865a9
5 changed files with 39 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,13 @@
2009-06-15 Jakub Jelinek <jakub@redhat.com>
PR testsuite/40426
* lib/gcc-dg.exp (gcc-dg-debug-runtest): For type -gdwarf-2 and
level != "" use separate -gdwarf-2 -g${level} options instead of
-gdwarf-2${level}.
* lib/gfortran-dg.exp (gfortran-dg-debug-runtest): Likewise.
* gfortran.dg/debug/pr37738.f: Also skip if -gdwarf-2 -g1.
* gfortran.dg/debug/pr35154-dwarf2.f: Likewise.
2009-06-15 Rafael Avila de Espindola <espindola@google.com>
* g++.dg/abi/mangle11.C: Update warning line.

1
gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f
View File

@ -1,6 +1,7 @@
C Test program for common block debugging. G. Helffrich 11 July 2004.
C { dg-do compile }
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "*" } { "-gdwarf-2" } }
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "-g1" } { "" } }
C { dg-options "-dA" }
common i,j
common /label/l,m

1
gcc/testsuite/gfortran.dg/debug/pr37738.f
View File

@ -1,6 +1,7 @@
C PR debug/37738
C { dg-do compile }
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "*" } { "-gdwarf-2" } }
C { dg-skip-if "DWARF-2 only" { "*-*-*" } { "-g1" } { "" } }
C { dg-options "-dA" }
subroutine a

21
gcc/testsuite/lib/gcc-dg.exp
View File

@ -1,4 +1,4 @@
# Copyright (C) 1997, 1999, 2000, 2003, 2004, 2005, 2006, 2007, 2008
# Copyright (C) 1997, 1999, 2000, 2003, 2004, 2005, 2006, 2007, 2008, 2009
# Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
@ -289,10 +289,18 @@ proc gcc-dg-debug-runtest { target_compile trivial opt_opts testcases } {
$comp_output] } {
remove-build-file "trivial.S"
foreach level {1 "" 3} {
lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}"]
foreach opt $opt_opts {
lappend DEBUG_TORTURE_OPTIONS \
[list "${type}${level}" "$opt" ]
if { ($type == "-gdwarf-2") && ($level != "") } {
lappend DEBUG_TORTURE_OPTIONS [list "${type}" "-g${level}"]
foreach opt $opt_opts {
lappend DEBUG_TORTURE_OPTIONS \
[list "${type}" "-g${level}" "$opt" ]
}
} else {
lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}"]
foreach opt $opt_opts {
lappend DEBUG_TORTURE_OPTIONS \
[list "${type}${level}" "$opt" ]
}
}
}
}
@ -320,7 +328,8 @@ proc gcc-dg-debug-runtest { target_compile trivial opt_opts testcases } {
if { ([string match {*/debug-[126].c} "$nshort"] \
|| [string match {*/enum-1.c} "$nshort"] \
|| [string match {*/enum-[12].C} "$nshort"]) \
&& [string match "*1" [lindex "$flags" 0] ] } {
&& ([string match "*1" [lindex "$flags" 0] ]
|| [lindex "$flags" 1] == "-g1") } {
set doit 0
}

16
gcc/testsuite/lib/gfortran-dg.exp
View File

@ -135,10 +135,18 @@ proc gfortran-dg-debug-runtest { target_compile trivial opt_opts testcases } {
}
remove-build-file "trivial.S"
foreach level {1 "" 3} {
lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}"]
foreach opt $opt_opts {
lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}" \
"$opt" ]
if { ($type == "-gdwarf-2") && ($level != "") } {
lappend DEBUG_TORTURE_OPTIONS [list "${type}" "-g${level}"]
foreach opt $opt_opts {
lappend DEBUG_TORTURE_OPTIONS \
[list "${type}" "-g${level}" "$opt" ]
}
} else {
lappend DEBUG_TORTURE_OPTIONS [list "${type}${level}"]
foreach opt $opt_opts {
lappend DEBUG_TORTURE_OPTIONS \
[list "${type}${level}" "$opt" ]
}
}
}
}