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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [int_conv_1.f90] - Blame information for rev 708

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=gnu" }`
3			`integer(kind=2) :: i2, j2, k2, l2, m2, n2, o2`
4			`integer(kind=4) :: i4, j4`
5			`integer(kind=8) :: i8, j8`
6			`real :: x`
7			`complex :: z`
8
9			`i2 = huge(i2) / 3`
10			`i8 = int8(i2)`
11			`i4 = long(i2)`
12			`j2 = short(i2)`
13			`k2 = int2(i2)`
14			`l2 = int2(i8)`
15			`m2 = short(i8)`
16			`n2 = int2(i4)`
17			`o2 = short(i4)`
18
19			`if (i8 /= i2 .or. i4 /= i2 .or. j2 /= i2 .or. k2 /= i2 &`
20			`.or. l2 /= i2 .or. m2 /= i2 .or. n2 /= i2 .or. o2 /= i2) call abort`
21
22			`x = i2`
23			`i8 = int8(x)`
24			`i4 = long(x)`
25			`j2 = short(x)`
26			`k2 = int2(x)`
27			`if (i8 /= i2 .or. i4 /= i2 .or. j2 /= i2 .or. k2 /= i2) call abort`
28
29			`z = i2 + (0.,-42.)`
30			`i8 = int8(z)`
31			`i4 = long(z)`
32			`j2 = short(z)`
33			`k2 = int2(z)`
34			`if (i8 /= i2 .or. i4 /= i2 .or. j2 /= i2 .or. k2 /= i2) call abort`
35
36			`end`