From 48946edb499d24ed6fecd3155a1262e5ab00b28d Mon Sep 17 00:00:00 2001 From: rearnsha Date: Fri, 12 Jan 2001 16:11:34 +0000 Subject: [PATCH] * lib/f-torture.exp (f_torture_compile): Prune the warnings before testing that no relevant ones were found. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@38944 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ 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 + + * lib/f-torture.exp (f_torture_compile): Prune the warnings before + testing that no relevant ones were found. + 2001-01-12 Nathan Sidwell * 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" -- 2.7.4