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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O2 -fdump-tree-original" }`
3			`subroutine foo(a,i,j,k)`
4			`integer, dimension (10) :: a`
5			`integer :: i, j, k`
6
7			`a(1:5:2) = a(8:6:-1)`
8
9			`a(1:8) = a(2:9)`
10
11			`a(4:7) = a(4:1:-1)`
12
13			`a(i:i+2) = a(i+4:i+6)`
14
15			`a(j:1:-1) = a(j:5)`
16
17			`a(k:k+2) = a(k+1:k+3)`
18			`end subroutine`
19			`! { dg-final { scan-tree-dump-times "malloc" 0 "original" } }`
20			`! { dg-final { cleanup-tree-dump "original" } }`