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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR 44207: ICE with ALLOCATABLE components and SOURCE
!
! Contributed by Hans-Werner Boschmann 
 
program ice_prog
 
type::ice_type
  integer,dimension(:),allocatable::list
end type ice_type
 
type(ice_type)::this
integer::dim=10,i
 
allocate(this%list(dim),source=[(i,i=1,dim)])
 
end program ice_prog

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 44207: ICE with ALLOCATABLE components and SOURCE`
4			`!`
5			`! Contributed by Hans-Werner Boschmann`
6
7			`program ice_prog`
8
9			`type::ice_type`
10			`integer,dimension(:),allocatable::list`
11			`end type ice_type`
12
13			`type(ice_type)::this`
14			`integer::dim=10,i`
15
16			`allocate(this%list(dim),source=[(i,i=1,dim)])`
17
18			`end program ice_prog`

Browse

Tools

Subversion Repositories openrisc

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