1! { dg-do run } 2! Test cshift where the values are eight bytes, 3! but are aligned on a four-byte boundary. The 4! integers correspond to NaN values. 5program main 6 implicit none 7 integer :: i 8 type t 9 sequence 10 integer :: a,b 11 end type t 12 type(t), dimension(4) :: u,v 13 common /foo/ u, i, v 14 15 u(1)%a = 2142240768 16 u(2)%a = 2144337920 17 u(3)%a = -5242880 18 u(4)%a = -3145728 19 u%b = (/(i,i=-1,-4,-1)/) 20 v(1:3:2) = cshift(u(1:3:2),1) 21 v(2:4:2) = cshift(u(2:4:2),-1) 22 if (any(v%a /= (/-5242880, -3145728, 2142240768, 2144337920 /))) call abort 23 if (any(v%b /= (/-3, -4, -1, -2/))) call abort 24end program main 25