1 ! Test spread for character arrays.
5 integer, parameter :: n1 = 3, n2 = 10, n3 = 4, slen = 9
6 character (len = slen), dimension (n1, n3) :: a
11 a (i1, i3) = 'ab'(i1:i1) // 'cde'(i3:i3) // 'cantrip'
15 call test (spread (a, 2, n2))
18 character (len = slen), dimension (:, :, :) :: b
20 if (size (b, 1) .ne. n1) call abort
21 if (size (b, 2) .ne. n2) call abort
22 if (size (b, 3) .ne. n3) call abort
27 if (b (i1, i2, i3) .ne. a (i1, i3)) call abort