gcc/testsuite/gfortran.dg/char_length_12.f90

   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
  12 end