|
! { dg-do run }
|
|
|
|
implicit none
|
|
character(len=3), dimension(3,3), parameter :: &
|
|
p = reshape(["xyz", "abc", "mkl", "vpn", "lsd", "epo", "tgv", &
|
|
"bbc", "wto"], [3,3])
|
|
character(len=3), dimension(3,3) :: m1
|
|
|
|
m1 = p
|
|
if (any (spread (p, 1, 2) /= spread (m1, 1, 2))) call abort
|
|
|
|
end
|