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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_comp_30.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR 47768: ICE: printing a derived-type variable with proc-pointer components
!
! Contributed by Janus Weil 
 
type :: t
  integer :: i = 3
  procedure(type(t)), pointer, nopass :: ppc
end type
 
type(t) :: x
 
print *,x  ! { dg-error "cannot have procedure pointer components" }
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 47768: ICE: printing a derived-type variable with proc-pointer components`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`type :: t`
8			`integer :: i = 3`
9			`procedure(type(t)), pointer, nopass :: ppc`
10			`end type`
11
12			`type(t) :: x`
13
14			`print *,x ! { dg-error "cannot have procedure pointer components" }`
15			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_comp_30.f90] - Blame information for rev 694