diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_cast_2.f90 | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index aed54cb..e6f83dd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2008-05-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * gfortran.dg/char_cast_2.f90: Adjust count in scanning the tree + dump file. + +2008-05-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * gfortran.dg/bind_c_module.f90: Adjust expected error messages. 2008-05-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> diff --git a/gcc/testsuite/gfortran.dg/char_cast_2.f90 b/gcc/testsuite/gfortran.dg/char_cast_2.f90 index 39566da..4c175bd 100644 --- a/gcc/testsuite/gfortran.dg/char_cast_2.f90 +++ b/gcc/testsuite/gfortran.dg/char_cast_2.f90 @@ -19,8 +19,8 @@ contains return end function Up end -! The sign that all is well is that [S.5][1] appears five times. +! The sign that all is well is that [S.5][1] appears twice. ! Platform dependent variations are [S$5][1], [__S_5][1], [S___5][1] ! so we count the occurrences of 5][1]. -! { dg-final { scan-tree-dump-times "5\\\]\\\[1\\\]" 5 "original" } } +! { dg-final { scan-tree-dump-times "5\\\]\\\[1\\\]" 2 "original" } } ! { dg-final { cleanup-tree-dump "original" } } |