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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR 41629: [OOP] gimplification error on valid code
!
! Contributed by Janus Weil 
 
  type t1
    integer :: comp
  end type
 
  type(t1), target :: a
 
  class(t1) :: x
  pointer :: x       ! This is valid
 
  a%comp = 3
  x => a
  print *,x%comp
  if (x%comp/=3) call abort()
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 41629: [OOP] gimplification error on valid code`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`type t1`
8			`integer :: comp`
9			`end type`
10
11			`type(t1), target :: a`
12
13			`class(t1) :: x`
14			`pointer :: x ! This is valid`
15
16			`a%comp = 3`
17			`x => a`
18			`print *,x%comp`
19			`if (x%comp/=3) call abort()`
20
21			`end`

Browse

Tools

Subversion Repositories openrisc

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