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

Subversion Repositories openrisc

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

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


! Testcase for PR34770
! { dg-do run }
  implicit none
  integer, target :: x(0:12)
  integer, pointer :: z(:)
  integer i
  do i = 0,12
    x(i) = i
  enddo
  z => x
  do i = 0,12
    if (x(i) /= i .or. z(i) /= i) call abort
  enddo
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! Testcase for PR34770`
2			`! { dg-do run }`
3			`implicit none`
4			`integer, target :: x(0:12)`
5			`integer, pointer :: z(:)`
6			`integer i`
7			`do i = 0,12`
8			`x(i) = i`
9			`enddo`
10			`z => x`
11			`do i = 0,12`
12			`if (x(i) /= i .or. z(i) /= i) call abort`
13			`enddo`
14			`end`

Browse

Tools

Subversion Repositories openrisc

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