From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Mon, 19 May 2008 14:28:19 +0000 (+0000)
Subject: char_cast_2.f90: Adjust count in scanning the tree dump file.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3e14097cbce6dd98c41b5f860991fc158f78118c;p=gcc.git

char_cast_2.f90: Adjust count in scanning the tree dump file.

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

From-SVN: r135574
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aed54cb0b9d..e6f83dd0a0b 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/gcc/testsuite/gfortran.dg/char_cast_2.f90 b/gcc/testsuite/gfortran.dg/char_cast_2.f90
index 39566dac5e6..4c175bd0fd7 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" } }