OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Thomas Koenig 2012-05-11 18:50:14 +00:00
parent dddb75f3fa
commit 06118b14d6
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
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

7
gcc/testsuite/gfortran.dg/string_compare_4.f90
View File

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