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 77eeb17f58c3e7f78ad8fd72f1c1fec372c05277..04d52eaa805bc6824289c62eb95c9e0175768f91 100644 (file)
--- 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 08458b7521996eeef56606070ccefe9a1981d0b9..b31db3adb36b842f5d30f4e65da42c2665448740 100644 (file)
--- 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" } }