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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR 46581: [4.6 Regression] [OOP] segfault in SELECT TYPE with associate-name
!
! Contributed by Salvatore Filippone 
 
 
  implicit none
 
  type :: t1
    integer, allocatable :: ja(:)
  end type
 
  class(t1), allocatable  :: a
 
  allocate(a)
 
  select type (aa=>a)
  type is (t1)
    if (allocated(aa%ja)) call abort()
  end select
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 46581: [4.6 Regression] [OOP] segfault in SELECT TYPE with associate-name`
4			`!`
5			`! Contributed by Salvatore Filippone`
6
7
8			`implicit none`
9
10			`type :: t1`
11			`integer, allocatable :: ja(:)`
12			`end type`
13
14			`class(t1), allocatable :: a`
15
16			`allocate(a)`
17
18			`select type (aa=>a)`
19			`type is (t1)`
20			`if (allocated(aa%ja)) call abort()`
21			`end select`
22
23			`end`

Browse

Tools

Subversion Repositories openrisc

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