URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [forall_6.f90] - Blame information for rev 338

Details | Compare with Previous | View Log


! Program to test FORALL with scalar pointer assignment inside it.
program forall_6
  type element
    real, pointer :: p
  end type
 
  type (element) q(5)
  real, target, dimension(5) :: t
  integer i;
 
  t = (/1.0, 2.0, 3.0, 4.0, 5.0/)
 
  do i = 1,5
    q(i)%p => t(i)
  end do
 
  forall (i = 1:5)
    q(i)%p => q(6 - i)%p
  end forall
 
 
  do i = 1,5
    if (q(i)%p .ne. t(6 - i)) call abort
  end do
end

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Program to test FORALL with scalar pointer assignment inside it.`
2			`program forall_6`
3			`type element`
4			`real, pointer :: p`
5			`end type`
6
7			`type (element) q(5)`
8			`real, target, dimension(5) :: t`
9			`integer i;`
10
11			`t = (/1.0, 2.0, 3.0, 4.0, 5.0/)`
12
13			`do i = 1,5`
14			`q(i)%p => t(i)`
15			`end do`
16
17			`forall (i = 1:5)`
18			`q(i)%p => q(6 - i)%p`
19			`end forall`
20
21
22			`do i = 1,5`
23			`if (q(i)%p .ne. t(6 - i)) call abort`
24			`end do`
25			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [forall_6.f90] - Blame information for rev 338