summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/char_length_12.f90
blob: f22eb6c7229d1f6120453ae6607c4a5fb6f624cc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
! { 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