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