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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR target/43808`
2			`! { dg-do run }`
3			`! { dg-options "-O0 -fipa-reference -fschedule-insns -fstrict-aliasing" }`
4
5			`type :: a`
6			`integer, allocatable :: i(:)`
7			`end type a`
8			`type :: b`
9			`type (a), allocatable :: j(:)`
10			`end type b`
11			`type(a) :: x(2)`
12			`type(b) :: y(2)`
13			`x(1) = a((/1,2,3,4/))`
14			`x(2) = a((/1,2,3,4/)+10)`
15			`y(1) = b((/x(1),x(2)/))`
16			`y(2) = b((/x(1),x(2)/))`
17			`if (y(1)%j(1)%i(1) .ne. 1) call abort`
18			`end`