re PR fortran/48543 (Collapse identical strings)

2019-01-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/48543
    * gfortran.dg/const_chararacter_merge.f90: Actually remove.
    * gfortran.dg/merge_char_const.f90: Restore.

From-SVN: r267572

gcc/testsuite/ChangeLog

+2019-01-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/48543
+	* gfortran.dg/const_chararacter_merge.f90: Actually remove.
+	* gfortran.dg/merge_char_const.f90: Restore.
+
 2019-01-04  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/88594

gcc/testsuite/gfortran.dg/const_chararacter_merge.f90

-! { dg-do compile }
-! { dg-options "-Os" }
-! PR 48543
-program main
-  character(len=17) :: a
-  character(len=34) :: b
-  a = 'Supercalifragilis'
-  b = 'Supercalifragilisticexpialidocious'
-  print *,a," ",b
-end program main
-! { dg-final { scan-assembler-times "Supercalifragilis" 1 } }

gcc/testsuite/gfortran.dg/merge_char_const.f90

+! { dg-do run }
+! { dg-options "-O0" }
+! This tests the patch for PR24311 in which the PRINT statement would
+! ICE on trying to print a MERGE statement with character constants
+! for the first two arguments.
+!
+! Contributed by Paul Thomas <pault@gcc.gnu.org>
+!
+  integer, dimension(6) :: i = (/1,0,0,1,1,0/)
+  print '(6a1)', Merge ("a", "b", i  == 1) ! { dg-output "abbaab" }
+  end
+
+