git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Thomas Koenig 2019-01-04 10:42:12 +00:00
parent 9d3ac5e3db
commit a52fcfac0a
3 changed files with 19 additions and 11 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 @@
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

11
gcc/testsuite/gfortran.dg/const_chararacter_merge.f90
View File

@ -1,11 +0,0 @@
! { 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 } }

13
gcc/testsuite/gfortran.dg/merge_char_const.f90 Normal file
View File

@ -0,0 +1,13 @@
! { 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