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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 49417: [4.6/4.7 Regression] [OOP] ICE on invalid CLASS component declaration
!
! Contributed by Andrew Benson 
 
 type :: nodeWrapper
 end type nodeWrapper
 
 type, extends(nodeWrapper) :: treeNode
    class(nodeWrapper) :: subComponent   ! { dg-error "must be allocatable or pointer" }
 end type treeNode
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 49417: [4.6/4.7 Regression] [OOP] ICE on invalid CLASS component declaration`
4			`!`
5			`! Contributed by Andrew Benson`
6
7			`type :: nodeWrapper`
8			`end type nodeWrapper`
9
10			`type, extends(nodeWrapper) :: treeNode`
11			`class(nodeWrapper) :: subComponent ! { dg-error "must be allocatable or pointer" }`
12			`end type treeNode`
13
14			`end`

Browse

Tools

Subversion Repositories openrisc

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