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

gcc/testsuite/ChangeLog

 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
 	*gfortran.dg/streamio_12.f90: New test to avoid future regression.
 

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" } }