Subversion Repositories openrisc_me

! { dg-do run }

! PR20713. Pad and truncate string.

character(len = 6),parameter:: a = 'hello'

character(len = 6),parameter:: b = 'hello *'

character(len = 6),parameter:: c (1:1) = 'hello'

character(len = 11) line

write (line, '(6A)') a, 'world'

if (line .ne. 'hello world') call abort

write (line, '(6A)') b, 'world'

if (line .ne. 'hello world') call abort

write (line, '(6A)') c, 'world'

if (line .ne. 'hello world') call abort

write (line, '(6A)') c(1), 'world'

if (line .ne. 'hello world') call abort

end