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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [class_array_10.f03] - Blame information for rev 707

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile}
!
! PR fortran/41587
! This program was leading to an ICE related to class allocatable arrays
!
! Contributed by Dominique D'Humieres 
 
type t0
  integer :: j = 42
end type t0
type t
  integer :: i
  class(t0), allocatable :: foo(:)
end type t
type(t) :: k
allocate(t0 :: k%foo(3))
print *, k%foo%j
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile}`
2			`!`
3			`! PR fortran/41587`
4			`! This program was leading to an ICE related to class allocatable arrays`
5			`!`
6			`! Contributed by Dominique D'Humieres`
7
8			`type t0`
9			`integer :: j = 42`
10			`end type t0`
11			`type t`
12			`integer :: i`
13			`class(t0), allocatable :: foo(:)`
14			`end type t`
15			`type(t) :: k`
16			`allocate(t0 :: k%foo(3))`
17			`print *, k%foo%j`
18			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [class_array_10.f03] - Blame information for rev 707