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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [reference2.f90] - Blame information for rev 300

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


! { dg-do run }
  real, dimension (5) :: b
  b = 5
  call foo (b)
contains
  subroutine foo (a)
    real, dimension (5) :: a
    logical :: l
    l = .false.
!$omp parallel private (a) reduction (.or.:l)
    a = 15
    l = bar (a)
!$omp end parallel
    if (l) call abort
  end subroutine
  function bar (a)
    real, dimension (5) :: a
    logical :: bar
    bar = any (a .ne. 15)
  end function
end

Line No.	Rev	Author	Line
1	38	julius	`! { dg-do run }`
2			`real, dimension (5) :: b`
3			`b = 5`
4			`call foo (b)`
5			`contains`
6			`subroutine foo (a)`
7			`real, dimension (5) :: a`
8			`logical :: l`
9			`l = .false.`
10			`!$omp parallel private (a) reduction (.or.:l)`
11			`a = 15`
12			`l = bar (a)`
13			`!$omp end parallel`
14			`if (l) call abort`
15			`end subroutine`
16			`function bar (a)`
17			`real, dimension (5) :: a`
18			`logical :: bar`
19			`bar = any (a .ne. 15)`
20			`end function`
21			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [reference2.f90] - Blame information for rev 300