OpenCores
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/] [pointer_1.f90] - Blame information for rev 316

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

Line No. Rev Author Line
1 302 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.