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