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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2
3			`implicit none`
4			`integer i`
5			`real rda1(10), rda(10), rval`
6			`double precision dda1(10), dda(10), dval`
7
8			`rda = (/ 1,2,3,4,5,6,7,8,9,10 /)`
9			`rDA1 = MOD (1.1*(rDA(1)-5.0), P=(rDA-2.5))`
10			`DO i = 1, 10`
11			`rVAL = MOD (1.1*(rDA(1)-5.0), P=(rDA(i)-2.5))`
12			`if (rval /= rda1(i)) call abort`
13			`enddo`
14
15			`dda = (/ 1,2,3,4,5,6,7,8,9,10 /)`
16			`dDA1 = MOD (1.1d0*(dDA(1)-5.0d0), P=(dDA-2.5d0))`
17			`DO i = 1, 10`
18			`dVAL = MOD (1.1d0*(dDA(1)-5.0d0), P=(dDA(i)-2.5d0))`
19			`if (dval /= dda1(i)) call abort`
20			`enddo`
21
22			`end`