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