From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 14 Nov 2007 01:35:09 +0000 (+0000)
Subject: re PR fortran/31608 (wrong types in character array/scalar binop)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3865fa6a9d0eb291d959bf983323af2edd30ff87;p=gcc.git

re PR fortran/31608 (wrong types in character array/scalar binop)

2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/31608
	*gfortran.dg/char_cast_1.f90: Modify regex in scan-tree-dump-times
	to match known variations in symbol format. Document in comments.

From-SVN: r130173
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 77eeb17f58c..04d52eaa805 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/31608
+	*gfortran.dg/char_cast_1.f90: Modify regex in scan-tree-dump-times
+	to match known variations in symbol format. Document in comments.
+
 2007-11-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/33985
diff --git a/gcc/testsuite/gfortran.dg/char_cast_1.f90 b/gcc/testsuite/gfortran.dg/char_cast_1.f90
index 08458b75219..b31db3adb36 100644
--- a/gcc/testsuite/gfortran.dg/char_cast_1.f90
+++ b/gcc/testsuite/gfortran.dg/char_cast_1.f90
@@ -26,6 +26,7 @@
   end function Upper
 end
 ! The sign that all is well is that [S.5][1] appears twice.
-! { dg-final { scan-tree-dump-times "\\\[S\.5\\\]\\\[1\\\]" 2 "original" } }
-! { dg-final { cleanup-tree-dump "original" } }
+! Platform dependent variations are [S$5][1], [__S_5][1], [S___5][1]
+! With this regular expression we also find [S.15][1], so count is 3.
+! { dg-final { scan-tree-dump-times "5\\\]\\\[1\\\]" 3 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }