1 ! Test reshape for character arrays.
5 integer, parameter :: n = 20, slen = 9
6 character (len = slen), dimension (n) :: a, pad
7 integer, dimension (3) :: shape, order
11 a (i) = 'abcdefghijklmnopqrstuvwxyz'(i:i+6)
12 pad (i) = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'(i:i+6)
17 call test (reshape (a, shape, pad, order))
20 character (len = slen), dimension (:, :, :) :: b
21 integer :: i1, i2, i3, ai, padi
24 if (size (b, i) .ne. shape (i)) call abort
33 if (b (i1, i2, i3) .ne. a (ai)) call abort
36 if (padi .gt. n) padi = 1
37 if (b (i1, i2, i3) .ne. pad (padi)) call abort