diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2012-05-11 18:50:14 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2012-05-11 18:50:14 +0000 |
| commit | 06118b14d6a75fc6d6c949ef66c6696430d7724d (patch) | |
| tree | fd3a0dab232c718f8b3bb9270260243d67eb1875 /gcc | |
| parent | dddb75f3fa9b950d68ff6047bc960cd89a1659df (diff) | |
| download | gcc-06118b14d6a75fc6d6c949ef66c6696430d7724d.zip gcc-06118b14d6a75fc6d6c949ef66c6696430d7724d.tar.gz gcc-06118b14d6a75fc6d6c949ef66c6696430d7724d.tar.bz2 | |
re PR libfortran/52537 (slow trim function)
2012-05-11 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/52537
* gfortran.dg/string_compare_4.f90: Change option
to -fdump-tree-original. Add test case for kind=4.
From-SVN: r187413
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/string_compare_4.f90 | 7 |
2 files changed, 11 insertions, 2 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 526e397..a187927 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,6 +1,12 @@ 2012-05-11 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/52537 + * gfortran.dg/string_compare_4.f90: Change option + to -fdump-tree-original. Add test case for kind=4. + +2012-05-11 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/52537 * gfortran.dg/string_compare_4.f90: New test. 2012-05-11 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> diff --git a/gcc/testsuite/gfortran.dg/string_compare_4.f90 b/gcc/testsuite/gfortran.dg/string_compare_4.f90 index 80f1057..64cbf93 100644 --- a/gcc/testsuite/gfortran.dg/string_compare_4.f90 +++ b/gcc/testsuite/gfortran.dg/string_compare_4.f90 @@ -1,12 +1,15 @@ ! { dg-do compile } -! { dg-options "-ffrontend-optimize -fdump-fortran-original" } +! { dg-options "-ffrontend-optimize -fdump-tree-original" } ! PR fortran/52537 - optimize comparisons with empty strings program main implicit none character(len=10) :: a character(len=30) :: line + character(len=4,kind=4) :: c4 line = 'x' read (unit=line,fmt='(A)') a + c4 = 4_'foo' + if (c4 == 4_' ') print *,"foobar" if (trim(a) == '') print *,"empty" call foo(a) if (trim(a) == ' ') print *,"empty" @@ -16,5 +19,5 @@ contains if (b /= ' ') print *,"full" end subroutine foo end program main -! { dg-final { scan-tree-dump-times "_gfortran_string_len_trim" 3 "original" } } +! { dg-final { scan-tree-dump-times "_gfortran_string_len_trim" 4 "original" } } ! { dg-final { cleanup-tree-dump "original" } } |