From 06118b14d6a75fc6d6c949ef66c6696430d7724d Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Fri, 11 May 2012 18:50:14 +0000 Subject: re PR libfortran/52537 (slow trim function) 2012-05-11 Thomas Koenig PR fortran/52537 * gfortran.dg/string_compare_4.f90: Change option to -fdump-tree-original. Add test case for kind=4. From-SVN: r187413 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/string_compare_4.f90 | 7 +++++-- 2 files changed, 11 insertions(+), 2 deletions(-) (limited to 'gcc') 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 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 + + PR fortran/52537 * gfortran.dg/string_compare_4.f90: New test. 2012-05-11 Rainer Orth 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" } } -- cgit v1.1