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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [class_8.f03] - Blame information for rev 308

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


! { dg-do compile }
! Test fixes for PR41618.
!
! Contributed by Janus Weil 
!
 type t1
   integer :: comp
   class(t1),pointer :: cc
 end type
 
 class(t1) :: x ! { dg-error "must be dummy, allocatable or pointer" }
 
 x%comp = 3
 print *,x%comp
 
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! Test fixes for PR41618.`
3			`!`
4			`! Contributed by Janus Weil`
5			`!`
6			`type t1`
7			`integer :: comp`
8			`class(t1),pointer :: cc`
9			`end type`
10
11			`class(t1) :: x ! { dg-error "must be dummy, allocatable or pointer" }`
12
13			`x%comp = 3`
14			`print *,x%comp`
15
16			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [class_8.f03] - Blame information for rev 308