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