Subversion Repositories openrisc_2011-10-31

! { 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