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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 50227: [4.7 Regression] [OOP] ICE-on-valid with allocatable class variable
!
! Contributed by Andrew Benson 
 
module G_Nodes
  private
 
  type, public :: t0
  end type
 
  type, public, extends(t0) :: t1
  end type
 
contains
 
  function basicGet(self)
    implicit none
    class(t0), pointer :: basicGet
    class(t0), target, intent(in) :: self
    select type (self)
    type is (t1)
       basicGet => self
    end select
  end function basicGet
 
end module G_Nodes

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 50227: [4.7 Regression] [OOP] ICE-on-valid with allocatable class variable`
4			`!`
5			`! Contributed by Andrew Benson`
6
7			`module G_Nodes`
8			`private`
9
10			`type, public :: t0`
11			`end type`
12
13			`type, public, extends(t0) :: t1`
14			`end type`
15
16			`contains`
17
18			`function basicGet(self)`
19			`implicit none`
20			`class(t0), pointer :: basicGet`
21			`class(t0), target, intent(in) :: self`
22			`select type (self)`
23			`type is (t1)`
24			`basicGet => self`
25			`end select`
26			`end function basicGet`
27
28			`end module G_Nodes`

Browse

Tools

Subversion Repositories openrisc

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