diff options
| author | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-15 12:25:47 +0000 |
|---|---|---|
| committer | aldot <aldot@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-15 12:25:47 +0000 |
| commit | ce1d2364eca9dbd261f14afa6b180b0e174948ea (patch) | |
| tree | a97cde0c3e26b8bb5fcf4214f390968b7294c543 /gcc/testsuite/lib/fortran-torture.exp | |
| parent | bd29e244de0f35598c710bfad806bf26a695b333 (diff) | |
| download | gcc-ce1d2364eca9dbd261f14afa6b180b0e174948ea.tar.gz | |
gfortran testsuite: implicitly cleanup-modules
gcc/ChangeLog:
2012-03-15 Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
* doc/sourcebuild.texi (cleanup-modules, keep-modules): Update
documentation.
gcc/testsuite/ChangeLog:
2012-03-15 Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
* gfortran.fortran-torture/compile/compile.exp: Simplify.
* gfortran.fortran-torture/execute/execute.exp: Likewise.
* lib/gcc-dg.exp (cleanup-modules): Move to ..
* lib/fortran-modules.exp: .. this new file. Adjust users.
* lib/gfortran-dg.exp (gfortran-dg-runtest,
gfortran-dg-debug-runtest): Call cleanup-modules.
* lib/fortran-torture.exp (fortran-torture-execute,
fortran-torture): Likewise.
* gfortran.dg/coarray/caf.exp: Likewise.
* lib/lto.exp: Likewise.
* gfortran.dg/class_4a.f03: Adjust cleanup-modules and keep-modules.
* gfortran.dg/class_4b.f03: Likewise.
* gfortran.dg/class_4c.f03: Likewise.
* gfortran.dg/class_45a.f03: Likewise.
* gfortran.dg/binding_label_tests_10.f03: Likewise.
* gfortran.dg/binding_label_tests_10_main.f03: Likewise.
* gfortran.dg/binding_label_tests_11.f03: Likewise.
* gfortran.dg/binding_label_tests_11_main.f03: Likewise.
* gfortran.dg/binding_label_tests_13.f03: Likewise.
* gfortran.dg/binding_label_tests_13_main.f03: Likewise.
* gfortran.dg/test_common_binding_labels_2.f03: Likewise.
* gfortran.dg/test_common_binding_labels_2_main.f03: Likewise.
* gfortran.dg/test_common_binding_labels_3.f03: Likewise.
* gfortran.dg/test_common_binding_labels_3_main.f03: Likewise.
* gfortran.dg/whole_file_28.f90: Likewise.
* gfortran.dg/whole_file_29.f90: Likewise.
* gfortran.dg/whole_file_30.f90: Likewise.
* gfortran.dg/whole_file_31.f90: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@185430 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/lib/fortran-torture.exp')
| -rw-r--r-- | gcc/testsuite/lib/fortran-torture.exp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/lib/fortran-torture.exp b/gcc/testsuite/lib/fortran-torture.exp index 8d6e2ddd817..9d875a00bb5 100644 --- a/gcc/testsuite/lib/fortran-torture.exp +++ b/gcc/testsuite/lib/fortran-torture.exp @@ -21,6 +21,7 @@ # based on f-torture.exp, which was written by Rob Savoye. load_lib target-supports.exp +load_lib fortran-modules.exp # Return the list of options to use for fortran torture tests. # The default option list can be overridden by @@ -218,6 +219,7 @@ proc fortran-torture-execute { src } { if [string match "/*" $testcase] { set testcase "[file tail [file dirname $src]]/[file tail $src]" } + list-module-names $src # Walk the list of options and copmile and run the testcase for all # options that are not explicitly disabled by the .x script (if present). @@ -332,6 +334,7 @@ proc fortran-torture-execute { src } { } $status "$testcase execution, $option" } + cleanup-modules "" } @@ -390,7 +393,8 @@ proc fortran-torture { args } { return } } - + list-module-names $src + # loop through all the options set option_list $torture_with_loops foreach option $option_list { @@ -406,6 +410,7 @@ proc fortran-torture { args } { } fortran-torture-compile $src "$option $options" + cleanup-modules "" } } |