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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@187413 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 526e3971fc949606de715e78cfd37a951a98a6a3..a187927f084c0c670c7fd89bce3cfca3ec76efe4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/string_compare_4.f90 b/gcc/testsuite/gfortran.dg/string_compare_4.f90
index 80f1057cff6c9f64c881437fb56730b0aa08e017..64cbf93bfd1f8041237b90765d92b730d7a12eac 100644 (file)
--- 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" } }