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') STOP 1 11 12write (line, '(6A)') b, 'world' 13if (line .ne. 'hello world') STOP 2 14 15write (line, '(6A)') c, 'world' 16if (line .ne. 'hello world') STOP 3 17 18write (line, '(6A)') c(1), 'world' 19if (line .ne. 'hello world') STOP 4 20end 21