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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fno-range-check -O0" }`
3			`!`
4			`! This testcase arose from PR 31262`
5			`integer :: a`
6			`integer(kind=8) :: b`
7			`a = -3`
8			`b = -huge(b) / 7`
9			`a = a ** 73`
10			`b = 7894_8 * b - 78941_8`
11			`if ((-3)**73 /= a) call abort`
12			`if (7894_8 * (-huge(b) / 7) - 78941_8 /= b) call abort`
13
14			`a = 1234789786453123`
15			`if (a - 1234789786453123 /= a - (-426244989)) call abort`
16			`end`