URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [select_type_22.f03] - Rev 694
Compare with Previous | Blame | View Log
! { dg-do compile }
!
! PR 47330: [OOP] ICE on invalid source in connection with SELECT TYPE
!
! Contributed by Andrew Benson <abenson@its.caltech.edu>
type treeNode
end type
contains
subroutine proc1 (thisNode)
class (treeNode), target :: thisNode
select type (thisNode)
type is (treeNode)
workNode => thisNode ! { dg-error "Non-POINTER in pointer association context" }
end select
end subroutine
end