1 |
# `dg' general purpose testcase driver. |
# `dg' general purpose testcase driver. |
2 |
# Copyright (C) 1994 - 2002 Free Software Foundation, Inc. |
# Copyright (C) 1994 - 2002, 2003 Free Software Foundation, Inc. |
3 |
|
|
4 |
# This program is free software; you can redistribute it and/or modify |
# This program is free software; you can redistribute it and/or modify |
5 |
# it under the terms of the GNU General Public License as published by |
# it under the terms of the GNU General Public License as published by |
653 |
set name "[file tail [file dirname $prog]]/[file tail $prog]" |
set name "[file tail [file dirname $prog]]/[file tail $prog]" |
654 |
} |
} |
655 |
|
|
656 |
|
# We append the compilation flags, if any, to ensure that the test case |
657 |
|
# names are unique. |
658 |
|
if { "$tool_flags" != "" } { |
659 |
|
set name "$name $tool_flags" |
660 |
|
} |
661 |
|
|
662 |
# Process any embedded dg options in the testcase. |
# Process any embedded dg options in the testcase. |
663 |
|
|
664 |
# Use "" for the second element of dg-do-what so we can tell if it's been |
# Use "" for the second element of dg-do-what so we can tell if it's been |
665 |
# explicitly set to "S". |
# explicitly set to "S". |
666 |
set dg-do-what [list ${dg-do-what-default} "" P] |
set dg-do-what [list ${dg-do-what-default} "" P] |