Doing diffs in .:
*** ./lib/dg.exp.~1~	Thu Sep 13 17:44:56 2001
--- ./lib/dg.exp	Thu Mar 13 15:25:50 2003
*************** proc dg-test { args } {
*** 639,644 ****
--- 639,649 ----
      if [string match "/*" $name] {
  	set name "[file tail [file dirname $prog]]/[file tail $prog]"
      }
+     # We append the compilation flags, if any, to ensure that the test case
+     # names are unique.
+     if { "$tool_flags" != "" } {
+ 	set name "$name $tool_flags"
+     }
  
      # Process any embedded dg options in the testcase.
  
--------------