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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [crayptr1.f90] - Blame information for rev 867

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

Line No. Rev Author Line
1 38 julius
! { dg-do run }
2
! { dg-options "-fopenmp -fcray-pointer" }
3
 
4
  use omp_lib
5
  integer :: a, b, c, p
6
  logical :: l
7
  pointer (ip, p)
8
  a = 1
9
  b = 2
10
  c = 3
11
  l = .false.
12
  ip = loc (a)
13
 
14
!$omp parallel num_threads (2) reduction (.or.:l)
15
  l = p .ne. 1
16
!$omp barrier
17
!$omp master
18
  ip = loc (b)
19
!$omp end master
20
!$omp barrier
21
  l = l .or. p .ne. 2
22
!$omp barrier
23
  if (omp_get_thread_num () .eq. 1 .or. omp_get_num_threads () .lt. 2) &
24
    ip = loc (c)
25
!$omp barrier
26
  l = l .or. p .ne. 3
27
!$omp end parallel
28
 
29
  if (l) call abort
30
 
31
  l = .false.
32
!$omp parallel num_threads (2) reduction (.or.:l) default (private)
33
  ip = loc (a)
34
  a = 3 * omp_get_thread_num () + 4
35
  b = a + 1
36
  c = a + 2
37
  l = p .ne. 3 * omp_get_thread_num () + 4
38
  ip = loc (c)
39
  l = l .or. p .ne. 3 * omp_get_thread_num () + 6
40
  ip = loc (b)
41
  l = l .or. p .ne. 3 * omp_get_thread_num () + 5
42
!$omp end parallel
43
 
44
  if (l) call abort
45
 
46
end

powered by: WebSVN 2.1.0

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