gcc/testsuite/gfortran.dg/char_cshift_3.f90

   1 ! { dg-do run }
   2 ! PR 36886 - misalignment of characters for cshift could cause
   3 ! problems on some architectures.
   4 program main
   5   character(len=2) :: c2
   6   character(len=4), dimension(2,2) :: a, b, c, d
   7   ! Force misalignment of a or b
   8   common /foo/ a, c, c2, b, d
   9   a = 'aa'
  10   b = 'bb'
  11   d = cshift(b,1)
  12   c = cshift(a,1)
  13 end program main