diff options
| author | vries <vries@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 08:53:41 +0000 |
|---|---|---|
| committer | vries <vries@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-18 08:53:41 +0000 |
| commit | 67ccbf39a27290f655dbdffe89560f45f2f806dc (patch) | |
| tree | 4ce0849d1938e4ef787005105a62dac4cd0d27fd | |
| parent | 1f556831cf0bfed95421a880a76a6af4d829c98c (diff) | |
| download | gcc-67ccbf39a27290f655dbdffe89560f45f2f806dc.tar.gz | |
Add dot-file scans to pr70161.c
2016-04-18 Tom de Vries <tom@codesourcery.com>
PR testsuite/70699
* gcc.dg/pr70161.c: Add dot-file scans.
* lib/scandump.exp (dump-suffix): Return suffix after first dot char,
instead of after last dot char.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235095 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gcc.dg/pr70161.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/lib/scandump.exp | 2 |
3 files changed, 11 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8f16407c5d6..582d5873937 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2016-04-18 Tom de Vries <tom@codesourcery.com> + + PR testsuite/70699 + * gcc.dg/pr70161.c: Add dot-file scans. + * lib/scandump.exp (dump-suffix): Return suffix after first dot char, + instead of after last dot char. + 2016-04-17 Eric Botcazou <ebotcazou@adacore.com> * c-c++-common/dump-ada-spec-3.c: New test. diff --git a/gcc/testsuite/gcc.dg/pr70161.c b/gcc/testsuite/gcc.dg/pr70161.c index 0b173c7ee9d..9b77d90b808 100644 --- a/gcc/testsuite/gcc.dg/pr70161.c +++ b/gcc/testsuite/gcc.dg/pr70161.c @@ -5,3 +5,6 @@ void foo (void) { } + +/* { dg-final { scan-ipa-dump-times "subgraph" 1 "inline.dot" } } */ +/* { dg-final { scan-ipa-dump-times "subgraph" 1 "cp.dot" } } */ diff --git a/gcc/testsuite/lib/scandump.exp b/gcc/testsuite/lib/scandump.exp index 74d27cc32ec..89b3944c71b 100644 --- a/gcc/testsuite/lib/scandump.exp +++ b/gcc/testsuite/lib/scandump.exp @@ -22,7 +22,7 @@ # Extract the constant part of the dump file suffix from the regexp. # Argument 0 is the regular expression. proc dump-suffix { arg } { - set idx [expr [string last "." $arg] + 1] + set idx [expr [string first "." $arg] + 1] return [string range $arg $idx end] } |