]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
re PR testsuite/40426 (Revision 148408 caused many DWARF tests faulures)
authorJakub Jelinek <jakub@redhat.com>
Mon, 15 Jun 2009 17:08:02 +0000 (19:08 +0200)
committerJakub Jelinek <jakub@gcc.gnu.org>
Mon, 15 Jun 2009 17:08:02 +0000 (19:08 +0200)
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

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/debug/pr35154-dwarf2.f
gcc/testsuite/gfortran.dg/debug/pr37738.f
gcc/testsuite/lib/gcc-dg.exp
gcc/testsuite/lib/gfortran-dg.exp

index 0fcde100f82c91ad8ba8f33c11a860cde7f5292f..a409a2e766f6532bf9fb08b8f31f6c1bbb505dd3 100644 (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.
index b7586ea6e18cf0e144fff6940c0ab9a4a9993d05..bfd215d9736fdda0190cb675859edfc9f4487ce1 100644 (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
index b0a787b2e527671ce2c0d288f72cc44ed4915b2b..48e18841ac27bf29cfee5799f71c6ac9607c4e29 100644 (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
index e906265e40cc883bcf5274d1d5d9b031a36168fa..98e2f667bdb945b82c4862aaa6363403073d0cb4 100644 (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
            }
 
index 55d6d400c401f5cd753fe957be020ab33a81facc..70a0888a0a4892eaba10be4f094e5932ee09de2f 100644 (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" ]
+                  }
                }
            }
        }