diff options
| author | Richard Earnshaw <rearnsha@arm.com> | 2001-01-12 16:11:34 +0000 |
|---|---|---|
| committer | Richard Earnshaw <rearnsha@gcc.gnu.org> | 2001-01-12 16:11:34 +0000 |
| commit | efce71c65ab5aa8859302dfb6563dbdbfa12e091 (patch) | |
| tree | ab4b09b4422b7870eae6ba4109e2df5a909e4c56 | |
| parent | c3ffea50514f9cd804d69ee6a4bdd789112c3245 (diff) | |
| download | gcc-efce71c65ab5aa8859302dfb6563dbdbfa12e091.zip gcc-efce71c65ab5aa8859302dfb6563dbdbfa12e091.tar.gz gcc-efce71c65ab5aa8859302dfb6563dbdbfa12e091.tar.bz2 | |
f-torture.exp (f_torture_compile): Prune the warnings before testing that no relevant ones were found.
* lib/f-torture.exp (f_torture_compile): Prune the warnings before
testing that no relevant ones were found.
From-SVN: r38944
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/lib/f-torture.exp | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 31a45bf..52c7aed 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2001-01-12 Richard Earnshaw <rearnsha@arm.com> + + * lib/f-torture.exp (f_torture_compile): Prune the warnings before + testing that no relevant ones were found. + 2001-01-12 Nathan Sidwell <nathan@codesourcery.com> * g++.old-deja/g++.pt/cast2.C: New test. diff --git a/gcc/testsuite/lib/f-torture.exp b/gcc/testsuite/lib/f-torture.exp index b8721a5..b9ae904 100644 --- a/gcc/testsuite/lib/f-torture.exp +++ b/gcc/testsuite/lib/f-torture.exp @@ -89,6 +89,9 @@ proc f-torture-compile { src option } { return } + # Prune warnings we know are unwanted. + set comp_output [prune_warnings $comp_output] + # We shouldn't get these because of -w, but just in case. if [string match "*77*:*warning:*" $comp_output] then { warning "$testcase: (with warnings) $option" @@ -98,8 +101,6 @@ proc f-torture-compile { src option } { return } - set comp_output [prune_warnings $comp_output] - set unsupported_message [g77_check_unsupported_p $comp_output] if { $unsupported_message != "" } { unsupported "$testcase: $unsupported_message" |