2 ! PR20713. Pad and truncate string.
4 character(len = 6),parameter:: a = 'hello'
5 character(len = 6),parameter:: b = 'hello *'
6 character(len = 6),parameter:: c (1:1) = 'hello'
7 character(len = 11) line
9 write (line, '(6A)') a, 'world'
10 if (line .ne. 'hello world') call abort
12 write (line, '(6A)') b, 'world'
13 if (line .ne. 'hello world') call abort
15 write (line, '(6A)') c, 'world'
16 if (line .ne. 'hello world') call abort
18 write (line, '(6A)') c(1), 'world'
19 if (line .ne. 'hello world') call abort