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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR rtl-optimization/49472`
2			`! { dg-do compile }`
3			`! { dg-options "-O -fcompare-debug -ffast-math" }`
4			`subroutine pr49472`
5			`integer, parameter :: n = 3`
6			`real(8) :: a, b, c, d, e (n+1)`
7			`integer :: i`
8			`do i=2, (n+1)`
9			`b = 1. / ((i - 1.5d0) * 1.)`
10			`c = b * a`
11			`d = -b * c / (1. + b * b) ** 1.5d0`
12			`e(i) = d`
13			`end do`
14			`call dummy (e)`
15			`end subroutine`