* gfortran.dg/char_cast_2.f90: Adjust count in scanning the tree

	dump file.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135574 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aed54cb..e6f83dd 100644 (file)
--- 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 (file)
--- 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" } }