5 character(len=1) :: a(7:)
7 character(len=1) :: c(2:10)
8 write (b, a) 'Hell', 'o wo', 'rld!'
9 if (b .ne. 'Hello world!') call abort
10 write (b, a(:)) 'hell', 'o Wo', 'rld!'
11 if (b .ne. 'hello World!') call abort
12 write (b, a(8:)) 'Hell', 'o wo', 'rld!'
13 if (b .ne. 'Hello world!') call abort
20 write (b, c) 'hell', 'o Wo', 'rld!'
21 if (b .ne. 'hello World!') call abort
22 write (b, c(:)) 'Hell', 'o wo', 'rld!'
23 if (b .ne. 'Hello world!') call abort
24 write (b, c(3:)) 'hell', 'o Wo', 'rld!'
25 if (b .ne. 'hello World!') call abort
29 character(len=1) :: a(10:,20:)
30 character(len=12) :: b
31 write (b, a) 'Hell', 'o wo', 'rld!'
32 if (b .ne. 'Hello world!') call abort
33 write (b, a) 'hell', 'o Wo', 'rld!'
34 if (b .ne. 'hello World!') call abort
38 character(len=1) :: f3(5)
48 character(len=1) :: a(:)
53 character(len=1) :: a(:,:)
58 character(len=1) :: f3(5)
62 character(len=1) :: e (6, 7:9), f (3,2), g (10)
63 character(len=12) :: b
82 write (b, f3 ()) 'Hell', 'o wo', 'rld!'
83 if (b .ne. 'Hello world!') call abort