URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [cshift_nan_1.f90] - Blame information for rev 384

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { 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.`
5			`program 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`
24			`end program main`