2 character(len
=5), dimension(2) :: c
13 character(len
=5), dimension(2) :: a
14 character(len
=5), dimension(2) :: b
17 if ((b(1) .ne
. "Hello") .or
. (b(2) .ne
. "World")) call abort
23 character(len
=5), dimension(m
) :: a
24 character(len
=5), dimension(m
) :: b
27 if ((b(1) .ne
. "Hello") .or
. (b(2) .ne
. "World")) call abort
30 subroutine foo3(a
, n
, m
)
33 character(len
=n
), dimension(m
) :: a
34 character(len
=n
), dimension(m
) :: b
37 if ((b(1) .ne
. "Hello") .or
. (b(2) .ne
. "World")) call abort