From ed72c2e3b39a30ece53f0896c594160c6aa53330 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Thu, 3 Jan 2019 12:32:34 +0000 Subject: [PATCH] re PR fortran/48543 (Collapse identical strings) 2019-01-02 Thomas Koenig PR fortran/48543 * gfortran.dg/const_chararacter_merge.f90: Remove. From-SVN: r267553 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/merge_char_const.f90 | 13 ------------- 2 files changed, 5 insertions(+), 13 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/merge_char_const.f90 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 + + PR fortran/48543 + * gfortran.dg/const_chararacter_merge.f90: Remove. + 2019-01-03 Jakub Jelinek 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 -! - integer, dimension(6) :: i = (/1,0,0,1,1,0/) - print '(6a1)', Merge ("a", "b", i == 1) ! { dg-output "abbaab" } - end - - -- 2.30.2