mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-26 01:25:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/42526 (bogus truncation warning for default-initialized character components)

Browse Source 
2010-08-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/42526
	* gfortran.dg/char_component_initializer_1.f90: New test.

From-SVN: r163220
This commit is contained in:
Jerry DeLisle 2010-08-13 05:14:18 +00:00
parent 9b821a0977
commit cf677bb867
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-08-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/42526
* gfortran.dg/char_component_initializer_1.f90: New test.
2010-08-12 Changpeng Fang <changpeng.fang@amd.com>
PR tree-optimization/45241

16
gcc/testsuite/gfortran.dg/char_component_initializer_2.f90 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do run }
! { dg-options "-Wall" }
! Added -Wall option to make sure PR42526 does not show up again.
program gfcbug62
implicit none
character(len=16) :: tdefi(2) = (/'0z1jan0000','1hr '/)
type t_ctl
character(len=16) :: tdefi(2) = (/'0z1jan0000','1hr '/)
end type t_ctl
type(t_ctl) :: ctl
integer :: i,k
i = 1
k = 1
if (tdefi(1) .ne. ctl%tdefi(1)) call abort ()
end program gfcbug62