From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Thu, 3 Jan 2019 12:32:34 +0000 (+0000)
Subject: re PR fortran/48543 (Collapse identical strings)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ed72c2e3b39a30ece53f0896c594160c6aa53330;p=gcc.git

re PR fortran/48543 (Collapse identical strings)

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

    PR fortran/48543
    * gfortran.dg/const_chararacter_merge.f90: Remove.

From-SVN: r267553
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 768c109ce37..ba9ed481c5f 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-01-02  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/48543
+	* gfortran.dg/const_chararacter_merge.f90: Remove.
+
 2019-01-03  Jakub Jelinek  <jakub@redhat.com>
 
 	PR debug/88644
diff --git a/gcc/testsuite/gfortran.dg/merge_char_const.f90 b/gcc/testsuite/gfortran.dg/merge_char_const.f90
deleted file mode 100644
index 32c87f51000..00000000000
--- a/gcc/testsuite/gfortran.dg/merge_char_const.f90
+++ /dev/null
@@ -1,13 +0,0 @@
-! { 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
-
-