1! { dg-do run } 2! PR20713. Pad and truncate string. 3 4character(len = 6),parameter:: a = 'hello' 5character(len = 6),parameter:: b = 'hello *' 6character(len = 6),parameter:: c (1:1) = 'hello' 7character(len = 11) line 8 9write (line, '(6A)') a, 'world' 10if (line .ne. 'hello world') call abort 11 12write (line, '(6A)') b, 'world' 13if (line .ne. 'hello world') call abort 14 15write (line, '(6A)') c, 'world' 16if (line .ne. 'hello world') call abort 17 18write (line, '(6A)') c(1), 'world' 19if (line .ne. 'hello world') call abort 20end 21