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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/51383
!
! Contributed by kaiserkarl31@yahoo.com
!
! Was failing before at the ref resolution of y1(1)%i.
!
program extend
   type :: a
      integer :: i
   end type a
   type, extends (a) :: b
      integer :: j
   end type b
   type (a) :: x(2)
   type (b) :: y(2)
   associate (x1 => x, y1 => y)
      x1(1)%i = 1
      ! Commenting out the following line will avoid the error
      y1(1)%i = 2
   end associate
end program extend

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/51383`
4			`!`
5			`! Contributed by kaiserkarl31@yahoo.com`
6			`!`
7			`! Was failing before at the ref resolution of y1(1)%i.`
8			`!`
9			`program extend`
10			`type :: a`
11			`integer :: i`
12			`end type a`
13			`type, extends (a) :: b`
14			`integer :: j`
15			`end type b`
16			`type (a) :: x(2)`
17			`type (b) :: y(2)`
18			`associate (x1 => x, y1 => y)`
19			`x1(1)%i = 1`
20			`! Commenting out the following line will avoid the error`
21			`y1(1)%i = 2`
22			`end associate`
23			`end program extend`

Browse

Tools

Subversion Repositories openrisc

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