1! { dg-do run }
2
3  implicit none
4  character(len=3), dimension(3,3), parameter :: &
5    p = reshape(["xyz", "abc", "mkl", "vpn", "lsd", "epo", "tgv", &
6                 "bbc", "wto"], [3,3])
7  character(len=3), dimension(3,3) :: m1
8
9  m1 = p
10  if (any (spread (p, 1, 2) /= spread (m1, 1, 2))) STOP 1
11
12end
13