OSDN Git Service

PR testsuite/41659
authorjanis <janis@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 12 Oct 2009 17:13:41 +0000 (17:13 +0000)
committerjanis <janis@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 12 Oct 2009 17:13:41 +0000 (17:13 +0000)
* gcc.dg/lto/20090914-2.c: Use dg-skip-if to skip test.
* lib/lto.exp (lto-get-options-main): Report error for using "target"
or "xfail" with dg-lto-dg.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152671 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gcc.dg/lto/20090914-2_0.c
gcc/testsuite/lib/lto.exp

index 07c5ef5..3979761 100644 (file)
@@ -1,3 +1,10 @@
+2009-10-12  Janis Johnson  <janis187@us.ibm.com>
+
+       PR testsuite/41659
+       * gcc.dg/lto/20090914-2.c: Use dg-skip-if to skip test.
+       * lib/lto.exp (lto-get-options-main): Report error for using "target"
+       or "xfail" with dg-lto-dg.
+
 2009-10-12  Stefan Dösinger  <stefan@codeweavers.com>
 
        * gcc.target/i386/ms_hook_prologue.c: New testcase.
index f78ecf8..908af69 100644 (file)
@@ -1,4 +1,5 @@
-/* { dg-lto-do run { target x86_64-*-* i?86-*-* } } */
+/* { dg-lto-do run */
+/* { dg-skip-if "x86 only" { ! { x86_64-*-* i?86-*-* } } { "*" } { "" } }
 
 /* Doesn't work without this dummy function with -fwhopr.  */
 int foo(void) { }
index 7f2d7ec..cccd642 100644 (file)
@@ -191,6 +191,16 @@ proc lto-get-options-main { src } {
                   || ![string compare "dg-options" $cmd] } {
            warning "lto.exp does not support $cmd in primary source file"
        } elseif { ![string compare "dg-lto-do" $cmd] } {
+           if { [llength $op] > 3 } {
+               set kw [lindex [lindex $op 3] 0]
+               if [string match "target" $kw] {
+                   perror "$src: dg-lto-do does not support \"target\""
+               } elseif [string match "xfail" $kw] {
+                   perror "$src: dg-lto-do does not support \"xfail\""
+               } else {
+                   perror "$src: dg-lto-do takes a single argument"
+               }
+           }
            set dgdo [lindex $op 2]
            verbose "dg-lto-do command for \"$op\" is $dgdo"
            if { ![string compare "assemble" $dgdo] } {