https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68155
markeggleston at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |markeggleston at gcc dot
gnu.org
--- Comment #11 from markeggleston at gcc dot gnu.org ---
program p
implicit none
type t
character(3) :: c2(2) = ['b', 'c'] // 'a' ! not padded
character(3) :: c3(2) = ['b', 'c'] // 'ax' ! OK
character(3) :: c4(2) = ['b', 'c'] // 'axy' ! OK
end type
type(t) :: z
character(3) :: c
c = z%c2(1) ! OK
print *, "'", c, "'"
c = z%c2(2) ! OK
print *, c
c = z%c3(1) ! OK
print *, c
c = z%c3(2) ! OK
print *, c
c = z%c4(1) ! OK
print *, c
c = z%c4(2) ! truncated
print *, c
end
produces:
'ba'
'ca'
'bax'
'cax'
'bax'
'cax'
ICE is gone, however, the first two items are not padded.
trunk (10.0 at r280100).
