diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-14 01:35:09 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-14 01:35:09 +0000 |
| commit | 3865fa6a9d0eb291d959bf983323af2edd30ff87 (patch) | |
| tree | 9b19d2945b04dadf508359fd6c92443f4c4e5fdd /gcc | |
| parent | 68c2aa7d954346734ca37449a64f312798b40ad0 (diff) | |
| download | gcc-3865fa6a9d0eb291d959bf983323af2edd30ff87.zip gcc-3865fa6a9d0eb291d959bf983323af2edd30ff87.tar.gz gcc-3865fa6a9d0eb291d959bf983323af2edd30ff87.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_cast_1.f90 | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 77eeb17..04d52ea 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,11 @@ 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. diff --git a/gcc/testsuite/gfortran.dg/char_cast_1.f90 b/gcc/testsuite/gfortran.dg/char_cast_1.f90 index 08458b7..b31db3a 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" } } |