Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/cshift_nan_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Test cshift where the values are eight bytes, ! but are aligned on a four-byte boundary. The ! integers correspond to NaN values. program main implicit none integer :: i type t sequence integer :: a,b end type t type(t), dimension(4) :: u,v common /foo/ u, i, v u(1)%a = 2142240768 u(2)%a = 2144337920 u(3)%a = -5242880 u(4)%a = -3145728 u%b = (/(i,i=-1,-4,-1)/) v(1:3:2) = cshift(u(1:3:2),1) v(2:4:2) = cshift(u(2:4:2),-1) if (any(v%a /= (/-5242880, -3145728, 2142240768, 2144337920 /))) STOP 1 if (any(v%b /= (/-3, -4, -1, -2/))) STOP 2 end program main