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))) call abort 11 12end 13