1! { dg-do run }
2! PR 36886 - misalignment of characters for cshift could cause
3! problems on some architectures.
4program 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)
13end program main
14