[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/lib/gfortran-dg.exp

Index: gcc/gcc/testsuite/lib/gfortran-dg.exp
diff --git a/gcc/gcc/testsuite/lib/gfortran-dg.exp b/gcc/gcc/testsuite/lib/gfortran-dg.exp
index 55d6d400c401f5cd753fe957be020ab33a81facc..70a0888a0a4892eaba10be4f094e5932ee09de2f 100644
--- a/gcc/gcc/testsuite/lib/gfortran-dg.exp
+++ b/gcc/gcc/testsuite/lib/gfortran-dg.exp
@@ -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" ]
+		   }
                }
            }
        }