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!') STOP 1
10 write (b
, a(:)) 'hell', 'o Wo', 'rld!'
11 if (b
.ne
. 'hello World!') STOP 2
12 write (b
, a(8:)) 'Hell', 'o wo', 'rld!'
13 if (b
.ne
. 'Hello world!') STOP 3
20 write (b
, c
) 'hell', 'o Wo', 'rld!'
21 if (b
.ne
. 'hello World!') STOP 4
22 write (b
, c(:)) 'Hell', 'o wo', 'rld!'
23 if (b
.ne
. 'Hello world!') STOP 5
24 write (b
, c(3:)) 'hell', 'o Wo', 'rld!'
25 if (b
.ne
. 'hello World!') STOP 6
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!') STOP 7
33 write (b
, a
) 'hell', 'o Wo', 'rld!'
34 if (b
.ne
. 'hello World!') STOP 8
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!') STOP 9